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O LIVRO 


Este livro foi dividido em duas partes: a primeira destina-se àqueles jogadores que gostam 
de programar e desejam colocar um “pouco" de imaginação e criatividade nos jogos. Nesta pri- 
meira parte estão os jogos simples, de fácil compreensão com um pouco de estudo e conhecimento 
de Basic do MSX. 

Com estes atributos, a primeira parte, que denominamos de “JOGOS PARA APRENDER 
E CRIAR”, é ideal para programadores iniciantes, que poderão ampliar e melhorar estes jogos. 
Para ajudar, colocamos em cada jogo algumas sugestões de modificações possíveis. 

A segunda parte contém o que denominamos “JOGOS PROFISSIONAIS". Este nome 
advém do fato de que estes jogos são altamente elaborados, comparando-se com os jogos que são 
comercializados para o MSX em fita cassete e cartucho. Um grande atributo destes jogos é que 
a maioria será compreendida por você mais cedo ou mais tarde..., quando, então, poderá alterá-los 
a seu gosto. 

Cabe notar que todos os jogos possuem recursos sonoros ... não esqueça de aumentar o 
volume (mas lembre-se dos vizinhos!). 


Boa sorte ! 




CONVENÇÕES adotadas 


Adotamos algumas regras e convenções para a elaboração deste livro, visando facilitar a vida 
de quem nunca programou ou utilizou um microcomputador MSX. Vejamos: 

- Náo utilização de símbolos (caracteres) especiais ou acentos nas listagens dos programas, 
com o objetivo de padronização para todos os MSX nacionais. 

- Definição do símbolo de “entra linha” por «- 1 . Para aqueles que já conhecem alguns 
microcomputadores, este símbolo é o equivalente a “RETURN”, “CR”, “ENTER” etc. 

— Definiçáo dos símbolos das teclas de movimentação de cursor por flechas indicativas. 
Estas teclas de movimentação estão situadas no lado direito do teclado. Abaixo temos nossa 
convenção : 

(■*-) “para esquerda” 

(-►) “para direita” 

(t) “para cima” 

(4.) “para baixo” 




COMO EVITAR FALHAS 


Abaixo, temos algumas dicas fundamentais que, com certeza, tornarão seu trabalho mais 
simples e menos sujeito a erros. 

- Cuidado para não confundir a letra "O" com o número zero; caso isto ocorra, o programa 
não funcionará adequadamente 

A letra O aparece como: 0 

O número zero aparece como: 0 

A cada 15 minutos de digitação, você deve armazenar o seu programa (mesmo que incom- 
pleto) em fita cassete ou disquete. Existem duas razões para este procedimento: caso acabe a 
energia elétrica, você terá uma cópia do seu trabalho armazenada e digitações muito extensas 
podem ser feitas em várias etapas. 

- É aconselhável (mas não indispensável) o uso de um gravador com contador de voltas. 

- Depois de terminada toda a digitação de um jogo. faça uma cópia reserva do mesmo em 
outra fita cassete ou disquete, pois em caso de acidente existirá uma cópia reserva dos seus 
programas. 
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JOGOS PARA APRENDER E CRIAR 




CAPITULO 


I 



Referências 

Nível de compreensão pelo usuário: FÁCIL. 
Tipo de jogo: REFLEXÃO. 

Dificuldade do jogo : MEDIANA. 


O jogo 

Você é o proprietário de um imóvel com 16 quartos vazios e está encontrando dificuldades 
em localizar um inquilino indesejável. Vocé visita os quartos vazios ao acaso, mas ao visitar um 
quarto vizinho ao que o indesejável está, ele, alertado pelo movimento, muda-se, podendo inclusive 
instalar-se em um quarto já visitado e marcado como vazio. Vocé tem que encontrá-lo em menos 
de 9 jogadas para ganhar. 


Fita K-7 

Para armazenar , depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE"INDESE" 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"INDESE"< J 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"INDESE.BAS" *■* 

Para recuperar: para recuperar o programa do disquete, digite: 
LOAO-INOESE.BAS"^ 


Como jogar 

Digite RUN e ou pressione FS. 

À pergunta “Quarto a visitar?", responda teclando a letra correspondente ao quarto que você 
deseja visitar, 

Se vocé encontra o inquilino, este é visualizado c a partida termina; se nío, podem ocorrer 
os dois seguintes casos: ou vocé visita um quarto distante e o inquilino nío se move, ou vocé 
visita um quarto próximo e o inquilino aparece por um instante e se instala aleatoriamente em 
um quarto próximo. Os quartos visitados tingem-se de roxo.e nío podem ser visitados novamente. 

Se em 9 jogadas vocé nío o encontrar, a posiçío do inquilino será mostrada e vocé perdera 
o jogo. 

Para sair do programa basta pressionar CTRL +STOP, a qualquer momento. 


Extensões possíveis 

Usar mais de 16 quartos etc. 


10 REM -- 0 INDESE JAUEL 
20 REM 

30 CLS 8 F=RND ( -TIME > 

40 FOR 1=0 TO F8Y=RND(1 ) SNEXT 
50 A*-CHR%<2i9> sBÍ=CHR%'215) 

60 Bf =B5+BS+B% : C$=A$+A9>+At ■ A4=CHR% ( 209 ) 
70 D I h B < 1 6 ) 

00 SCREEN 1 : COLOR 9,i5:KEY OFF : CLS 




O indesejável 5 


90 FOR 1 = 1 TO 16 

100 LOCATE 4+4*< I-i~4*INT< <1-1 )/4) ) ,2+4»INT 

< < I- 1 > /4 : PR I NTBS 

110 LOCATE 4+4*<I-i-4#INT<<I-Í)/4)>,3+4*INT 

< < I-i )/4) :PRINTAS;CHRS<64+I> ?AS 
120 NEXT I 

130 X=INT(RN0(l)*16+i)!S=i:K=0 

140 LOCATE 0 r 20!lNPUT"Casa a visitar 

C=ASC ( 0% ) -64 

150 IF B ( C ) = 1 THEN LOCATE 0 r 22 : P R I NT" Ja vi 
s i t ada . " : PLAY "AAA" sQOTO 140 
160 IF C=X THEN LOCATE 0 , 22 : PR INT"Consegu i u 
em" • 8 y" jogadas!": PLAY "CEG":K=i :GOTO 240 
170 IF X-5=C OR X-4=C OR X-3=C OR X-1=C OR 
X+3=C OR X+5“C THEN 240 

180 LOCATE 0 , 22 5 PR INT"Nao esta aqui . " s PLAY" 
CED" 

190 S=S+i sB<C)=l sFOR 1=1 TO 16 
200 LOCATE 4+4*< I-i-40INT< ( I-i )/4) > r 2+4#INT 
<(I-i)/4):IF B < I ) = 1 THEN PRINT CS ELSE PRIN 
T BS 

210 NEXT I 

220 IF S=9 THEN LOCATE 0,22:PRINT "Ooce per 



6 


MSX - Jogos. Para aprender e criar. Jogos profissionais 


deu. Estava em " ■ CHRí ( X + Ó4 > : K=i : GOTO 240 
230 LOCATE 0 r 22 s PR INT" 

":GOTO i 40 

240 LOCATE 5+4*(X-l-4*INT((X-l>/4)) r l+4*INT 
< (X-í )/4) r O:PRINT CHR 4 ( í ) +CHR* < 65 ) 

250 FOR 1=1 TO 400:NEXT I 

260 IF K = 1 THEN PLAY"GEC" : END 

270 LOCATE 5+4* ( X- 1-4» INT ( ( X- 1 ) /4 ) ) , i +4 * INT 

< <X-i >/4> ,0 SPRINT " " 

280 Z=INT<10*RND<i)+i>-5:IF ABS(Z)=2 THEN 280 
290 X=X+Z : IF X>16 OR X<1 THEN X=X-Z 


300 GOTO 190 



CAPITULO 





Referências 

Nível de compreensão pelo usuário: MEDIANO. 

Tipo de jogo: DE AZAR (CONTRA 0 MSX). 

Dificuldade do jogo: FÁCIL. 

O jogo 

Este programa é uma simulação do tradicional jogo de POKER realizado com 32 cartas, no 
qual o jogador tem como adversário o MSX. 

0 jogador receberá 5 cartas, numeradas de 1 a 5, e poderá trocar algumas delas, digitando 
o número das que deseja descartar . 

Fita K-7 

Para armazenar , depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE-POKER"*- 1 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD-POKER"^ 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 

SAVE "POKER.BAS" -*- 1 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAD"POKER.BAS" 

Como jogar 

Digite RUN e ^ ou pressione F5. 

Logo que se põe o programa em funcionamento, visualizam-se as 5 primeiras cartas do 
jogador . 

À pergunta “Cartas para trocar?” digite os números correspondentes aos das cartas que 
você deseja trocar. Se não desejar trocar nenhuma carta basta pressionar «- 1 (return). 

Por exemplo: se você quiser trocar as cartas 4 e 5, à pergunta "Cartas para trocar?" tecle 
45 e «- 1 , sendo assim conservadas as cartas 1 23 e trocadas as 4 e 5 . 

Em seguida, visualizam-se as cartas do MSX. Para continuar com o jogo, basta pressionar 
uma tecla qualquer. 

Para interromper o programa a qualquer momento, pressione CTRL + STOP. 

Extensões possíveis 

Melhorar o programa para ser um jogo realista etc. 

10 REM — POKER 
20 REM 

30 CLS : F-RND < -T I ME > 

40 FOR 1=1 TO F : V=RND< 1 > : NEXT I 
50 DIM N< 16> 

60 Uf="7 8 9 10UADAREAS" 

70 Cf < 0 > =CHRf < 1 > +CHRf < 69 > 

80 Cf < 1 > =CHRf < 1 > +CHRf < 68 > 

90 Cf < 2 > =CHRf < 1 > +CHRf < 67 > 
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1 00 C* < 3 > =CHR$ < 1 > +CHRÍ < 70 > 

110 SCREEN 0: COLOR 9, 15:KEV OFF 

120 FOR 1=1 TO 16 

130 N < I > = I NT < RND < 1 > *32 > 

140 IF 1=1 THEN 180 

150 FOR J=1 TO 1-1 

160 IF N<X>-N(J> THEN 130 

170 NEXT J 

180 NEXT I 

190 K=0: P=0 

200 LOCATE 0 , 8 SPRINT "Se lecione o numero das cartas par 
a tro-car. " 

210 PR I NT 

220 PRINT"Por exemplo, para trocar as cartas 1,3 e 4 e 
screvas " 

230 PRINT 
240 PRINT" 134" 

250 PRINT 

260 PRINT"e pressione RETURN" 

270 GOSUB 360 

280 IF Rí="0" THEN PLAV "CDE" s END 
290 FOR 1=1 TO LEN<R*> 

300 N < UAL < M I D$ < , 1 , 1 > > > »N < I +5 > 


310 NEXT I 
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32© CLS 

330 P-l 

34© GOSUB 360 

330 K=K+10 

360 FOR 1-1 TO 5 

370 J=INT<H< I-*-K>/8> 

380 F=2>»'<H< I+K>-8*INT<N<I+K)/8)> + l 
390 R*=MID$<U*.F,2> 

400 LOCATE 7*1 -4, K :PRINT I t PLAV" 164n70" 
410 LOCATE 7*1-5, K+2i PRINTR*; 

420 LOCATE 7*1-5, K+3i PR INT" " 

430 HEXT I 

440 IF P=1 THEN P=0|RETURN 
450 IF K< >10 THEN GOTO 520 
460 LOCATE 0,18 

470 PR INT "Compare os dois jogos. " 

480 PR INT 

490 PRINT"Pressiorie qualquer teclai" 

500 R*=INPUT$< 1 > 

510 GOTO110 
520 LOCATE 0,5 
530 INPUTR* 


540 RETURM 




CAPÍTULO 



PRESTIDIGITADOR 



Referências 

Nível de compreensáo pelo usuário: MEDIANO. 
Tipo de jogo: ADIVINHAÇÃO. 

Dificuldade do jogo : FÁCIL. 


O jogo 

É um jogo muito fácil, no qual o MSX manipula as cartas e se faz passar por um presti- 
digitador. Visualizam-se 21 cartas, escolhidas ao acaso entre 52, das quais o jogador deverá escolher 
uma e reté-la mentalmente. Depois deverá indicar ao MSX em que coluna (1, 2 ou 3, a partir da 
esquerda) se encontra a carta escolhida; as cartas embaralham-se e distribuem-se novamente, e o 
jogador indica outra vez em que coluna ela está; isto se repete mais uma vez e em seguida o MSX 
mostra a carta escolhida. 


Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE"PRESTI" «J 

Para recuperar: para recuperar o programa da fita, digite : 

CLOAD-PRESrr 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando : 
SAVE"PRESTI.BAS" «- 1 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAD-PRESTI.BAS"*- 1 

Como jogar 

Digite RUN e -*- 1 ou pressione F5. 

Obtém-se a primeira visualização das 21 cartas, repartidas em trés colunas, então indica-se 
o número (1, 2 ou 3) da coluna onde se encontra a carta escolhida, seguido de «- 1 (return). 

Obtém-se uma segunda e terceira visualização das cartas, e segue-se o mesmo procedimento 
descrito acima. 

Depois disso a carta escolhida é visualizada. 

Para sair do programa basta pressionar CTRL + STOP, a qualquer momento. 

Extensões possíveis 

Maior número de cartas, melhor resolução gráfica etc. 


10 REM — PRESTIDIGITADOR 
20 REM 

30 CLS : F =RND < -T I ME > 

40 FOR 1 = 1 TO F : V=RND< 1 > s NEXT I 
50 SCREEN 0: KEV OFF: COLOR 15, 7 
60 A*«" H 

70 FOR 1=1 TO 21 

80 B*=CHR$ < I MT < RND< 1 > *52+38 > > 


90 FOR J=1 TO LEN<A*> 



Prestidigitador 
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100 IF B$=MID*<A$, J, 1> THEN 30 
110 NEXT J 
120 A$=A$+BÍ 
130 NEXT I 

140 H=3:P=1 

1 50 B*= " ESOUCOP AUADARE AS " 

160 FOR 1=1 TO LEN<A*:>*P-11*<P“0> 

170 S=INT<<ASC<MID$<A$, I, 1 > >-38>/13> 

130 J=7*IHT<<I-i:W> 

190 T = ASC < M I D$ < Aí , I , 1 >> -37-13*3 

200 IF P=0 THEN LOCATE 0,0: PR I NT " Sua carta e': 

H 

2 1 0 LOCATE J*P+ 1 NT < Jv-2 > - 1 6* < P=0 > , < I - J > *P 

220 IF T<=9 THEN PR I NT STR$<T+i:>j 

230 IF T >9 THEN PR I NT MID#<B$ , ABS<2*T-1 1 > , 2>f 

240 LOCATE • < J+3 > *P+ 1 + 1 NT < JV2 >-2 1 * < P=0 > , < I - J > *P : PR I NTM I 
D-í < B-í , 2*3+ 1 , 2 > 

250 NEXT I 

260 IF P=0 THEN PLAV " cdefgab" : END 

270 LOCATE 0,16:PLAV " ceg" : INPUT"Que coluna :";N 

230 CLS 

290 H=H— 1 

300 R$= " 20 1 20 " : B$= " " 
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310 FOR j=0 TO 2 

320 Bt=BS +M I D* < A* , 7*UAL < M I D» < Rt , N+ 3. 1 > > + 1 , 7 > 
330 NEXT J 

340 IF H=0 THEH A$=B$ : P=0 : GOT O 1 50 

350 A$=" M 

360 FOR J=0 TO 2 

370 FOR 1=1 TO 7 

380 A$=A*+M I D* < B$ , 3* I -2+ J , 1 > 

390 NEXT I 
400 NEXT J 
410 GOTO 150 




CAPfTULO 



maquina de palavras 


Referências 

Nível de compreensão pelo usuário: FÁCIL. 
Tipo de jogo: SORTEIO. 

Dificuldade do jogo: NENHUMA. 


O jogo 

Este programa permite ao MSX demonstrar sua capacidade de manejar séries de carac- 
teres: parte-se simplesmente de um prefixo e de um sufixo de origem grega, que se juntam ao 
acaso, formando vez ou outra palavras compreensíveis e outras vezes palavras absurdas e sem 
sentido. 


Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE"PALAVRAS"‘< J 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"PA LAVRAS" -*- 1 

15 
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Disquete 

Para armazenar: depoisõe digitar o programa, salve-o em disquete com o comando: 
SAVE"PALAVRAS.BAS" «- 1 

Para recuperar: para recuperar o programa do disquete, digite: 
LOAD-PALAVRAS.BAS" «- 1 

Como jogar 

Digite RUN e <-* ou pressione F5. 

Imediatamente após, vocé começará a ver as palavras, uma abaixo da outra. 

Para interromper o programa a qualquer momento, pressione CTRL + STOP. 

Extensões possíveis 

Aumentar a lista de palavras etc. 

10 REM — MAQUINA DE P AL AURAS 
20 REM 

30 CLS : F =RND < — T I ME ) 

40 FOR 1=1 TO F : V=RND< 1 > : NEXT I 
50 SCREEN 1 : UIIDTH 13: COLOR 9,15,3 
60 DIM A$<15> 

70 DIM B*< 15> 

30 FOR 1=1 TO 15 
90 READ A$<I>,B$<I> 

100 NEXT I 

110 I = I NT < RND < 1 > * 1 5+ 1 > 


120 J= I NT < RND < 1 ) * 1 5+ 1 > 




Máquina de palavras 1 7 


130 C*=A$d>+B*<J> 

140 PR I NTC# : PLAY "164n90" 

150 FOR S= 1 TO 1200: NEXT S 
160 GOTO 110 

170 DATA ANDRO, CRATA, COSMO, FILO, MICRO, NOMO, HELIO, TROPO 
, SEXO , G I NO , ESTEREO , MANO 

180 DATA PALEQ, NAUTA, MACRO, FAGO, HIDRO, FUGO, ENDO, PATA, P 
ATO, GRAFO, HOMO, DERMO 

190 DATA MITO, F060,H0ME0, LOGO, OCTO,FONO 



CAPITULO 





Referências 

Nível de compreensão pelo usuário: FÁCIL. 

Tipo de jogo: REFLEXÃO. 

Dificuldade do jogo : MEDIANA. 

O jogo 

0 computador escolhe letras (vogais e consoantes) ao acaso e cada jogador deverá indicar 
o comprimento da palavra que conseguir obter com elas. 

Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE"LETRAS"* J 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD-LETRAS" «- 1 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE-LETRAS.BAS”*- 1 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAD"LETRAS.BAS" +- 1 


Como jogar 

Digite RUN e ou pressione F5. 

O jogo começa com o computador escolhendo letras ao acaso e em seguida perguntando 
“Jogador 1 - Comprimento”, ao que o primeiro jogador deve responder digitando o número de 
letras da palavra que ele conseguiu formar com as letras que o computador forneceu, e teclar 
«-I (return). Em seguida, o computador perguntará “Jogador 2 - Comprimento", ao que o 
segundo jogador deverá responder como já foi explicado. 

Depois que o segundo jogador der sua resposta, o computador mostrará a pontuação de 
cada um. Para continuar a partida, basta pressionar uma tecla. 

Para interromper a partida a qualquer momento, pressione CTRL + STOP. 


Extensões possíveis 

Colocar um temporizador, mais jogadores etc. 


10 REM — LETRAS 
20 REM 

30 CLS : F»RND < -TIME ) 

40 FOR 1=1 TO 15!Y=RND(i) :NEXT I 
50 S=0: J=0 

60 SCREEN 1 s WIDTH 30:C0L0R 14 r 6 r 8:KEY 0FF 
70 L=INT<RND<l>*6+7> 

80 A$="AEI0UEA" 

90 L0CATE 1 2 . 4 : PR INT"LETR AS 5 " 
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ÍÜÜ FOR 1 = 1 TO L 

1Í0 LOCATE 2*1 , 6 : PR INT CHR$(INT<RND<i)*26+65): 
PLAY "L64N8Q" 

1 20 IF RND < i ) < . 4 THEN LOCATE 2*I,6*PRINT MID$' 
A9> , INT ( RND ( 1 ) *7+1 > , i 
í 30 NEXT I 
i 40 1 = 1 

í 50 LOCATE 0 , í 0 5 PR INT" JOGADOR s " ; I j slNPUT^COMPR 
I MENTO ! " ;L 
i 60 LOCATE 25,10:?" 

170 IF 1=1 THEN P=L 
180 1=1+1 

190 IF I < 3 THEN 150 
200 S=S+(P AND P >L ) 

210 J=J+(L AND L >P ) 

220 LOCATE 0 , 1 3 : PR I NT"PONTOS - JG 1 : " j S : " - JG 
2 : " ■ J 

230 PRINT :PR INT"PRESSIONE UMA TECLA" 

240 R5=INPUTS( 1 ) 


250 GOTO 60 



capitulo 





Referências 

Nível de compreensão pelo usuário: FÁCIL. 

Tipo de jogo : DE SORTE PARA VÁRIOS JOGADORES. 
Dificuldade do jogo: FÁCIL. 


O jogo 

Este programa realiza um sorteio de um jogo de loteria (LOTO) de 6 números, compreen- 
didos entre 1 e 49, mais um número complementar, todos diferentes, que poderiam, por exemplo, 
ser utilizados para um jogo de LOTO. 


Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE-LOTERIA" «- 1 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD-LOTERIA"^ 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"LOTERIA.BAS” * J 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAD-LOTER IA.BAS” «-• 

Como jogar 

Digite RUN e «-'ou pressione F5, para iniciar o programa e ter o primeiro sorteio. 

Para iniciar o programa e ter o primeiro sorteio. 

À pergunta "Deseja outro sorteio? (S/N)” responda com S se quiser mais um sorteio e 
com N para encerrar o programa. 

Para interromper o programa a qualquer momento, pressione CTRL + STOP. 

Extensões possíveis 

Fazer com que os números sorteados sejam os da loto oficial, melhorar a parte gráfica, 
representando-se o cartão da loto etc. 


.10 RIEM — LOTERIA 
20 CLS:F=RND<-TIME) 

30 FOR 1=1 TO i5:Y=RNDC 1 ) :NEXT I 
40 DIM N<7> 

50 SCREEN 1 ; COLOR 11,8,15 
60 FOR 1=1 TO 7 
70 N(I)=INT( RND (í)*49+i) 

80 IF 1=1 THEN 120 

90 FOR J=i TO I-i 

100 IF N < I ) =N ( J ) THEN 70 
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ÍÍO NEXT J 
í 20 NEXT I 

140 LOCATE 5 r 3 : PR INT"NUMEROS ESCOLHIDOS:" 

150 FOR 1=1 TO 6 

160 LOCATE 5*I-5,il:PRINT N(I) 

170 NEXT I 

180 LOCATE 2 7 Í8:PRINT"NUMER0 COMPLEMENTAR:"; 
N%<7) 

190 PLAY "CDE" 

200 LOCATE 5 , 22 : PR INT"OUTRO JOGO? (S/N)" 

210 R9> = INPUT4 ( 1 > 

220 IF R*="S" OR R*="s" THEN 50 




PARTE 



JOGOS PROFISSIONAIS 
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GÉNIO MUSICAL 


Referências 

Nível de compreensão pelo usuário: MEDIANA. 
Tipo de jogo: MEMÓRIA. 

Dificuldade do jogo: FÁCIL. 


O jogo 

Quem não conheceu aquele jogo eletrónico chamado Genius onde o jogador tinha de memo- 
rizar uma sequência cada vez mais longa de notas musicais e suas respectivas cores? 

Vamos lá! ! 


Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE"gênio’’ ^ 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"gênio , '-* J 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"gênio" ♦ J 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAD-gènio"*-! 


Como jogar 

Digite RUN e «- 1 ou pressione FS. 

A tela inicial contém a mensagem: 

"Dificuldade?(1 —9)" 

Pressione o número correspondente ao nivel de dificuldade que desejar. O jogo será iniciado 
e a tela terá a seguinte composição: 

— no canto esquerdo superior: a pontuação do jogador; 

— no centro da tela: o desenho do Génio com o respectivo nível de dificuldade; 

— no canto direito inferior: a mensagem “pronto” que desaparecerá quando a primeira nota 
musical for executada. 

O desenho central é composto por quatro regiões coloridas, cada qual acendendo quando 
a respectiva nota musical for executada. 

Para responder ao programa, você deve utilizar as teclas de movimentação do cursor 
(■*". t, 4), cada qual correspondendo a uma das quatro regiões coloridas do Gênio Musical 
(por exemplo, a tecla “para a direita” corresponde à região colorida da direita). 

Aparecerá a mensagem “FIM” juntamente com a emissão de um som desagradável quando 
você errar (ninguém é perfeito...). Em seguida, será repetida a sequência de notas musicais/cores 
que estava em jogo, surgindo, então, a seguinte tela: 


"FINAL" 

"SEU PLACAR: ..." 

"MELHOR: ..." 

"NOVAMENTE? (S/N)" 

Nela estão seus pontos e o resultado da melhor partida. Se vocé desejar jogar novamente 
pressione “S”;caso contrário, pressione “N”. 

Para interromper o jogo a qualquer momento pressione CTRL + STOP. 




Génio musical 


29 


10 REM — 6ENI0 
20 REM 

30 CLEAR 200 , ScHEFFF : SCREEN 1 : W I DTH 28 : COLOR 15,1,1: CLS 
: KEV OFF 

40 DIM S?Í<8>,0Í<3,2> 

50 GOSUB 680 : C5í=RND < -T I ME > 

60 CLS : PR I MT 

70 PRINT " #########•• 

80 PRINT" 

90 PRINT" # #aaaaaa a# #" 

100 PRINT" # «aaaaaaatt #" 

110 PRINT" # «aaaaaaa# #" 

120 PRINT" # «aaaaaaa# #" 

130 PRINT" # «aaaaaaa# #" 

140 PRINT" #######################" 

150 PRINT" «zzzzzz# «hhhhhh#" 

160 PRINT" «zzzzzz# GÉNIO «hhhhhh#" 

170 PRINT" «zzzzzz# «hhhhhh#" 

180 PRINT" «zzzzzz# "L5í" «hhhhhh#" 

190 PRINT" «zzzzzz# «hhhhhh#" 

200 PRINT" «zzzzzz# «hhhhhh#" 

210 PRINT" a######################" 

220 PRINT" # «PPPPPPP# #" 
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230 PRINT" # #ppppppp# #•' 

240 PRINT" # #ppppppp# #" 

250 PRINT" # #ppppppp# #" 

260 PRINT" # #PPPPPPP# # 

270 PRINT" ##PPPPPPP##" 

280 PRINT" #########" 

290 LOC ATE 0 , 0 : PR I NT " PONTOS " : LOCATE 1,1: PRINT O 

300 C*=0 : SC ! =0 : TE=L** 1 2+40 : PLAV " 1 8v 1 4 t« te; " , " 1 8v 1 4 1- te 

; ", " 18'v*14t=te.: " 

310 LOCATE 20, 22: PRINT" PRONTO" FOR 1=0 TO 1936:NEXT:L 

OCATE 20, 22: PRINT" "j:BEEP 

320 REM — corpo principal 

330 KEJí=RND<l>*4:P0KE 8«HF000+C^,KE^ 

340 FOR IJí=0 TO C5í: K5í=PEEK<&HF000+lí;> : UPOKE &H200C+K5Í, 
C05í<K5í> 

350 PLAV O*<K^,0>,O*<K5í, 1 > , 0$<K5í, 2> 

360 IF PLAV < 0 > THEN GOTO 360 

370 UPOKE &H200C+K5Í, &H1 1 : FOR 1=0 TO 9-L^í: NEXT : HEXT 

380 C5í-CJí+l 

390 FOR I5í=0 TO C5í-1 

400 GJ£=ST I CK < 0 > : ON G5£ GOTO 420,400,430,400,440,400,450 
410 GOTO 40O 


420 S’í=0: GOTO 460 
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430 S5í=l : GOTO 460 
440 S5í=2:GOTO 460 
450 S>.=Z 

460 P%*PEEK<&HF000+I5í>s IF S>X >P>: THEN GOTO 510 
470 UPOKE RH200C+S5Í» C05í<SX> 

480 PLAV O*<S5S,0>*O*<S5í, 1>,O*<SX,2>:SC!"SC!+10:LOCATE 
1, 1 : PRINT SC! 

490 IF PLAV<0> THEN GOTO 490 

500 UPOKE &H200C+S'í, &H1 1 : NEXT: FOR T=0 TO 599; NEXTt GOTO 
320 

510 REM — f irn de jogo 

520 PLAV" to2ol5a2", "tolol5a2" 

530 LOCATE 20, 1 : PRINT "FIM ! " 

540 FOR 1=0 TO 999: NEXT 

550 LOCATE 20, 1 : PRINT "PO IS E'" 

560 PLAV" 18o 14 t= te; ", "18o 141= te; ", " 18o 141= te; " 

570 FOR I7.=0 TO C7.-1 : K%*PEEK<&HF000+I5s> s UPOKE &H200C+K 
V., C07.<K5í> 

500 PLAV O*<K%,0>,O*<KV.,1>,O*<K*,2>:FOR K=8 TO 199; NEX 
T 

590 IF PLAV<0> THEN GOTO 590 

600 UPOKE &H200C+KX , 8=H 1 1 : FOR 1=0 TO 9-L>: : NEXT : NEXT : CLS 
: LOCATE 10, 3: PRINT "FINAL" 



32 


MSX ■ Jogos. Para aprender e criar. Jogos profissionais 


610 LOCATE 5,9: PRIHT" SEU PLACAR:" SC! 

620 IF SC ! >HS ! THEN HS ! =SC ! 

630 LOCATE 9, 1 1 : PRIHT "MELHOR : "HS ! 

640 LOCATE 4,19: PR I NT " NOUAMENTE ? <S^N>" 

650 I $ = I NKE Ví : IF Ií="s" OR IÍ="S" THEN GOSUB 820;CLS:S 
C!=0:GOTO 60 

660 IF Ií=" n" OR IÍ="N" THEN CLSs COLOR 15,4,7sEND 
670 GOTO 650 
680 REM 

690 PRINT: PRINT"********** GENIO **********" 

700 PRINT 

710 PRINT: PRINT 

720 PRINT: PRINT 

730 FOR 1=0 TO 3: FOR J=0 TO 2: RE AO Aí : O* < I , J>=AÍ : NEXT: 
NEXT 

740 DAT A o c , o3g , o3e , oe , o c , o3g ,og,oe,oc, o5 c,og, oe 

750 FOR I “&H200C TO &H200F : UPOKE I , &H1 1 : NEXT: UPOKE &H2 

000, ÊHFF 

760 FOR 1=0 TO 3: RE AO A: X< I >=A: NEXT 
770 FOR 1=0 TO 3: RE AO A: V< I >=A: NEXT 
780 DATA 10,17,10,3 
790 DATA 2,9,16,9 

800 FOR IX=0 TO 3: READ Aí : COJí< I50=UAL< "&h"+AÍ > : NEXT 
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310 DAT A 55, aa, 38, 22 

320 PR I MT : PR I NT : PR I NT " DIFICULDADE ? 
330 I$=INKEV$sIF I$= ,,M THEN GOTO 830 
340 IF UAL< lí >=0 THEN GOTO 830 
850 lv.=uah: I $ "> 

360 RETURN 



CAPITULO 
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Referências 

Nível de compreensáo pelo usuário: MEDIANA. 
Tipo de jogo: AGILIDADE E INTELIGÊNCIA. 
Dificuldade do jogo: MEDIANA. 


O jogo 

Você está se aproximando da base LUNA UM, na Lua. Do seu controle sobre a nave depende 
o sucesso desta missSo, onde um pequeno deslize pode provocar o desastre fatal. 

Boa sorte... 


Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE-luna"-*- 1 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"luna” 
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Luna um 35 

Disquete 

Pura armizemr. depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"lurw" 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAO‘iuna" ^ 


Como jogar 

Digite RUN e ^ ou pressione F5. 

Para iniciar o jogo, pressione qualquer tecla 

Seu objetivo consiste em pousar em um dos quatro campos de pouso de LUNA UM, sem que 
seu combustível acabe. O painel de controle apresenta os seguintes indicadores: 

- COMB: combustível da nave; 

- FORÇA: o empuxo (força) dos motores; 

- VY: Velocidade vertical (de queda ou de subida) da nave; 

VX: velocidade horizontal (para esquerda ou direita) da nave. 

VX e VY dflo mensagens nas seguintes cores: verde boa velocidade; vermelho - velocidade 
perigosa. Se aparecer a mensagem “OK" significa que você está na velocidade correta 

Para controlar a direçáo do vóo da nave use as teclas de movimentaçfo de cursor "para a 
esquerda" («-) e “para a direita” (-*) Para controlar a força de empuxo dos motores, use a tecla 
“para cima" (t) para aumentar a força e a tecla "para baixo" (f) para diminuir a força. 

Quando a nave chegar perto dos campos de pouso, será feito um “zoom", aproximando a 
paisagem lunar para que você possa observar melhor o campo de pouso. 

Apôs pousar, será emitida uma das seguintes mensagens de avaliação da manobra: “COLI- 
SÃO” indica uma forte colisflo; •‘COLISÃO MÉDIA" indica que o pouso nío foi um desastre 
completo c “POUSO PERFEITO" - indica que o pouso foi um sucesso. 

Ao fim de cada etapa o micro pergunta: 

"Outro |OflO? (S/N)" 

Se você responder “S” o jogo será reiniciado, caso contrário será encerrado. 

Se desejar interromper o jogo a qualquer momento pressione CTRL + STOP. 

10 REM — Luna Uru 


20 REh 
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30 ' 

40 » CRIA SPRiTES & ARRAYS 

50 r 

60 GOSUB 450 
70 ' 

80 r 

90 » INICIALIZA VARIAVEIS- 

Í00 ’ 

110 GOSUB 670 
120 ' 

130 ' 

140 ' DESENHA FUNDO 

150 ' 

160 GC-4 : CS=15 * CB-iÚ : GOSUB 890 
170 ' 

180 ' 

190 ' PRINCIPAL 

200 ’ 

210 CP«5:G0SUB1000 
220 ' 

230 ' 

240 ’ TITULO 

250 ' 
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CT = í 5 * GOSUB Í100 


-PAUSA INICIAL- 


G0SUB1200 


INSTRUMENTOS- 


GOSUB i 300 


-CICLO PP INC IP AL - 


GOSUB í 610 


-SPRITES- 


SCREEN2 ,2.05 OPEN"GRP s "AStti 


480 RESTORE 3280 
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490 F0RSP=0T02i 
500 SP**:"" 

5í 0 FOR I = i T 032 

520 READD s SP$=SP4+CHR 4 ( D ) 

530 NEXT 

540 SPRITEÍ (SP )=SP4 
550 NEXT 

560 RESTOREoOO * Dl MS < 3 ) 

570 FOR I “OT 03 
580 READD « S < I ) =0 
590 NEXT 

600 DATA í 33, 125, 120, Í32 
610 REST0RE650:DÍMB<7> 

620 FOR I =0T 07 
630 READD : B < I > =D 
640 NEXT 

650 DATA160, 169,140, 130,200, i 00, 53,156 

660 ’ 

670 ’ INIC. VARIAVEIS 

680 ' 

690 DEFINTI 

700 0NERR0RG0T02490 


710 P=0 
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720 ZS=0 

730 Z0*0 

740 BS=0 

750 F I =0 

76 0 F í =0 

770 CF-0 

780 L»40 

790 SP*2 

800 0X=5íMY»2 

810 AX=Ü * AY n 0 * A=0 

820 X1=0:YÍ=0 

830 XS-0 1 YS=0 

840 XP=20*YP=30 

850 T= . 25 

860 G=.5 

870 C“i/2*T A 2 

880 RETIJRN 

890 

900 r FUNDO 

910 ” 

920 COLOR, CC,CC 
930 r — BORDA — 

940 L INE < 0 , 0 ) - < 255 , 1 9 1 ) , CB , B 
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950 ' — ESTRELA — 

960 F 0RI=1T020 

970 PSEKRNDd ) «230 + 10 r RND<l>*140 > , CS 
980 NEXT 
990 RETURN 

1000 ' 

iOíO ” PRINCIPAL 

1020 ” 

1030 DRAW"C=CP;SOBMÜ, 174" 

1040 REST ORE 2920 : FOR 1 = 1 T08 : READD4 ! DR AW"Xl)1> p 
1050 DRAW"D22L262U17" 

1060 P AINT < 100 , 189 ) r CP 

1070 L INE ( 0 r 0 ) - < 255 r 191) r CB r B 

1080 RETURN 

i 090 7 

1100 ' TITULO 

1110 7 

1120 COLORCT , CC , CC 
1130 REST0RE3030 
1140 FOR I = iT010 
1150 READPX,PY,S$ 

1160 PSET <PX,PY) r CC*PR INT#í r SS 


i NEXT 


1170 NEXT 
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1180 RETURN 

1190 ’ 

1200 ’ PAUSA INICIAL 

1210 ' 

1220 PSET < 20 r 120 > r CC 

1230 CR=RN0<i)*i0+5-.C0L0RCR,CC,CC 

1240 PRINTHi, "PRESSIONE UHA TECLA" 

1 250 I F I NKE YS=""THENGOTOÍ 200 
1260 COLORCC , CC r CC : PSET < 20 r 120 > 

1270 PRINTHI /'PRESSIONE UNA TECLA" 

1280 CT “CC * GOSUB 1120 
1290 RETURN 

1300 

1310 ' INSTRUNENTACAO 

1320 

1330 COLOR CB r CC , CC 

1340 ST%-"R4B64BDlR2BG2BD3R4BG4BDiR2BG2BD3R4BG4BDí P2BG 
2BD3R4BG4BD1R2BG2BD3R4" 

1350 DR AU"BH240 T 1 6XST $ ; " 

1360 DRAW"BM240,64XST4;" 

1370 PSET<247,2i) r 4:PRINTHl,"C" 

1380 PSET ( 247 , 29 ) , 4 : PR INTHi , "0" 

1390 PSET (247,37) ,4í PRINTHi r "M" 
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1400 PSET<247,45) ,4sPRINTHl ,"B" 
1410 PSET<247,65),4iPRINTMi,"F" 
1420 PSET (247,73) , 4 1 PR INTM1 , "0" 
1430 PSET<247,81),4«PRINTM1,"R" 
1440 PSET <247, 89) , 4 : PR I NTM 1 , """ 
1450 PSET < 247 ,97) ,4sPRINTMi , "A" 
1460 FORI=OT04Ü 
1470 LI NE < 234 , 56- 1 ) - < 238 , 56- 1 ) 

1480 NEXT 

1490 PSET < 1 90 , 2 ) , CP i P R INTM 1 , "0Y" 
1500 PSET <210, 2) ,CP :PR INTM1 , "VX" 
1510 PSET<190,15> , CC*PRINTM1 , "OK" 
1520 PSET<21Ü,15),CC*PR1NTW1 , "OK" 
1530 LI NE < 1 87 , 10)-STEP(i9, 19) ,CB,B 
1540 LI NE <207, 10)-STEP<i9,19),CB,B 
1550 L INE <0,S<0) )-< 64 ,18i),CB,B 
1560 L INE (64,S<i)>-< 128 , 173 > , CB , B 
1570 LI NE 128 ,S(2) )-< 192, 168 ) , CB , B 
1580 LINE < 192, S< 3 ) >-<255,180 ),CB,B 
1590 RETURN 

1600 ' 

1610 ' CICLO PRINCIPAL 

1620 ' 
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1630 

1640 IFZO=iGOT01700 
1650 I=I+laCL=< IM0D2)*15 
1660 PSET(42,176) ,CL 
1670 PSET ( 100 r 158 ) , Cl_ 

1680 PSET (176,1 46 ) ,CL 
1690 PSET (215, 168) , CL 
1700 G0SUB2280 
1710 AX=0:AY*=0 
1720 ' — JOYSTICK 0— 

1730 IFF 1=»1THEN2080 

1740 0N<STICK<0>+i)G0T01750, 1770, 1800, 1820,1840,1860,1 

890,1910,1930 

1750 'STICKaO 

1760 G0T01950 

1770 ’STICK=1 

1780 LINE<234,104-BS)-(238,l04-BS) ,11 

1790 IFBS< 40THENBS=BS+4 

1800 'STICK=2 

1810 G0T01950 

1820 r STICK=3 

1830 SP-SP + 1 s IFSP >-4THENSP=4 


1840 'ST ICK=4 
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1850 G0TOÍ95O 
1860 'STICK=5 

1870 LINE<234,Í04-BS)-(238,Í04-BS) ,CC 

1880 IFBS >0THENBS=BS-4 

1890 'STICK=6 

1900 00T01950 

1910 ’ST ICK=7 

1920 SP-SP-l s IFSP < =0THENSP=0 
1930 'STICK*8 

1940 r COMBUSTÍVEL 

1950 IF INKEYSO" "THENF I =0 : G0T0208Ü 
1960 A=BS/10sFI=*CF 

1970 L=L-BS/40 s L INE < 234 , 55-L > - < 238 , 55~L ) , CC 

1980 IFL< -1 THENÍ990ELSE2020 

1990 Fí=>í :BS=0 sAX=0:AY=0:A=0:FI=0 

2000 LI NE (234 r 64)-( 238 ,104),CC,BF 

2010 PSET <30.4), CC : COLOR i 4 r CC , CC * PR INTttl r "FIM DO COMBU 
STIVEL" 

2020 ON ( SP + 1 ) G0T02030 , 2040 , 2050 , 20o0 r 2070 

2030 AX*-Aí AY*0:XP = i48YP*=0:G0T02080 

2040 AX-1 . 41 «-A * AY=Í » 4 1 #-A s XP=9 s YP-9 s G0T02080 

2050 AX-0 : AY=-A : XP =0 : YP = i2 : GOT02080 

2060 AX-i.4i*A*AY=i.4i*-A:XP =-9 1 YP = 9 : GO T 02080 
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2070 AX=ASAY=0:XP=-14: YP=0 

2080 G0SUB228G 

2090 XS=<VX*T+AX*C>/3 

2100 YS=<VY*T+<AY+G)*C)/3 

2 í í 0 G0SUB2280 

2120 0X=0X+AX*T 

2130 VY=0Y+(AY+G)*T 

2140 IFY1 >S ( P ) AND Z0=0THENG0SUB 2350 
2150 IFYi < -14THEN2490 
2160 A=P0 INT < Xl + i , Yl + 15 ) 

2170 B=P0INT(Xi+i5 r Yl+15> 

2180 I F A“50RB=5THEN2590 
2190 IF A-í 5ANDB=15THEN2530 
2200 XX“ABS< VX ) í YY*ABS< 0Y ) 

2210 Sl«<YY>i>*3+<YY>6)*7+<YY>10>»-i 
2220 S2“ < XX > 1 ) *3+ < XX >6 ) *7+ < XX > 10 > *-i 
2230 P = XNT ( Xl/63 > 

2240 PUTSPRITE2, (1 89 ,11), -S 1,10 
2250 PUTSPRITE3, ( 209 r i 1 ) „ -32 r 1 1 
2260 GO TO 1 620 

2270 

2280 ’ MOSTRA SPRITE 

2290 
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2300 Xi=Xí+XS:Yi=Yi + YS> 

23Í0 PUT SPR I TEí , <Xi+XP,YÍ+YP) , FI , SP+Z8+7 
2320 PUT SPR ITEO ,<Xi,Yi),15, SP+ZS 
2330 RETURN 

2340 ' * 

2350 ’ ZOOM 

2340 ' 

2370 LINE<1 ,120)- (254,190) ,CC,BF 
2380 PUT SPRITEO, <X1,Y1) ,15,63 
2390 PO=*INT (Xl/63) 

2400 CF«Í4:Z0=1 sZS«5s Yí»0«XÍ=<XiM0D63)*4 

24.10 0NP0+1G0T02420, 2430, 2440, 2450 

2420 REST 0RE2920 • READZ í 1 5 READZ24 s Y® i6.t * GO T 0246Ü 

2430 REST0RE2940:READZi4:READZ2l:Y=í9i:G0T02460 

2440 REST 0RE29ó0 * READZ 1 1 s READZ24 s Y^l 77 s G0T02460 

2450 REST0RE2980 s READZ 1 % : READZ2S * Y=ó5 : GOT 02460 

2460 DRAW"C5BMl,=YjSióXZíl*XZ2f • M255, Í91M0 , 191M1 ,»Y>": 

PAINT <20, 190) , CP :LINE (0,0 >-(255,191 ) , CB , B : LINE < B < P0*2 > 

,B<P0*2+i ) )-STEP<16,6) ,15,BF 

2470 RETURN 

2480 ’ 

2490 ' CONTROLE DE ERRO 


2500 
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2510 ME=2 s GOT 02720 

2520 

2530 r ATERR ISAGEM 

2540 

2550 IFSP < > 20R ABS ( XX)>10RABS(YY)> ÍTHEN258Q 

2560 ME*3 * G0T02720 

2570 

2580 ' EXPLOSÃO 

2590 

2600 PUTSPR I TEO ,<Xi,Yi),15,63 
2610 PUTSPR ITE1 , (XI , Y1 ) , 15, 63 
2620 PU1SPRITE2, (XI, Yi ) ,15, 63 
2630 PUT5PRITE3,<Xi,Yi),i5,63 
2640 F r 0RES=17T022 
2650 FOR 1 = 1 TO 15 
2660 PUTSPRITEO, (XI , Y 1 ) ,15, ES 
2670 NEXT s NEXT 
2680 ME“í * G0T02720 

2690 

2700 ' MENSAGEM 

2710 

2720 COLOR 15* ON MEG0T02730 , 2740 , 2750 

2730 P8ET < 60 r 40 ) :PRINT#i,"C0LISA0":PSET<70 r óÜ) «G0T0277 
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0 

2740 PSET<80 r 40> : PR INTMi , "COLISÃO" : PSET < 60 r 60 > sPRINTttl 
r "MEDIA" s GOT 02770 

2750 PSET(80,40) ePRINT#i r 'POUSO" : P SET < 6Ü , 60 > ; PR IN TM 1 
PERFEITO! ! " s G0T02770 

2760 ' 

2770 ’ FIM DE JOGO? 

2780 r 

2790 PSET (50,80) SPRINT *41, "OUTRO JOGO ?<S/N>" 

2800 KS=INKEYÍ 

2810 IP"K t="N"0RK9>= "n "THENCLS s STOP 
2820 IFKS»"S"0RK$«"s"THEN284Ú 
2830 G0T0280Q 

2840 PUTSPRITEO, (Xi ,YÍ ) ,15,63 
2850 PUTSPRITEi, (Xi r Yi) P 15 ,63 
2860 PUTSPRITE2, <Xí 7 Yi ) ,15,63 
2870 PUTSPRITE3, (XI ,Y1> ,15,63 

2880 CL.S : G0SUB670 : G0SÜB890 : GOSUB 1 000 : G03UB 1 300 : GOSUB i 6 
10 

2890 ' 

2900 ' DATAS 

2910 ' 

2920 DATA"R8FiDiFÍDíF2R3EiFiEíF2E3FiEiR2EÍR2" 
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2930 DATA"EÍ R2E2U2E2R 1F1D6E1R5FÍR 1F1R2E3U2E3F2R5F í"' 
2940 DATA"U2R8E1R5E1E3R7E2R2" 

2950 DATA"E2U2E2R7F lRlFiDiF IR 1F2E3R2F1E1F3P 1F1 R2" 

2960 DAT A"R 10F2E3R5E2U1 E1R6UÍU3F2DÍR2'' 

2970 DAT A"E3U2E i U2E4U2R 1E2R 1U2E1F1DÍ FiDí F í Dí R6F ÍR lFiR i 
F1RÍE4F1E1R5" 

2980 DATA"R4U2E3U4E2F4D4FiG2D6G2D5FiD4DlG2D4R2E2R5E2U2 
E2U2F 2D3F i D3R 3" 

2990 DATA"F3E2F2E2F3E3F2E2FiE3Rí3" 

3000 

3010 ’ DATAS TITULO 

3020 

3030 DATA20 , 20 

3040 DATA"* * * * * ***" 

3050 DA T A2Ü , 28 

3060 DATA"* *******" 

3070 DAT A20 . 36 

3080 DATA"* ***** ***" 

3090 DATA20 , 44 

3100 DATA"* * * * * * *" 

3110 DATA20 , 52 

3120 DATA"*** *** * * * *" 

3130 DATA52 r 68 
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3140 DATA"» * * *" 

3150 DATA52 ,76 
3160 DATA"» * ** **" 

3170 DATA52 , 84 
3180 DATA"» * » * *" 

3190 DATA52 , 92 
3200 DATA"* * * * *" 

3210 DATA52, 100 
3220 DATA"»** * *" 

3230 RETURN 

3240 ' 

3250 ' DATAS SPRITES 0/.../20 

3260 ' 

3270 'HHHMW 

3280 DATA24 ,58,92,216,216,92,58,24 
3290 DAT AO ,0,0, 0,0, 0,0,0 
3300 DAT AO ,0,0, 0,0, 0,0,0 
3310 DAT AO ,0,0, 0,0, 0,0,0 
3320 '««««« 

3330 DATA252,238,220, 191 ,248,240,80,16 
3340 DATAO, 0,0,0, 0,0, 0,0 
3350 DATAO, 0,0, 0,0, 0,0,0 
3360 DATAO, 0,0, 0,0, 0,0,0 




Lu na um 


SI 


3370 '««««« 

3380 DATA24 ,60,66, 255 , 255 ,36,66,0 

3390 DATAO, 0,0, 0,0, 0,0,0 

3400 DATAO, 0,0, 0,0, 0,0,0 

34 ÍO DATAO, 0,0, 0,0, 0,0,0 

3420 

3430 DATA63, lí 9, 59, 253,31,15,10, 8 

3440 DATAO, 0,0, 0,0, 0,0,0 

3450 DATAO. 0,0, 0,0, 0,0,0 

3460 DATAO, 0,0, 0,0, 0,0,0 

3470 

3480 DAT A24 , 92 , 58 , 27 , 27 , 58 , 92 , 24 
3490 DATAO, 0,0, 0,0, 0,0,0 
3500 DATAO, 0,0, 0,0, 0,0,0 
3510 DATAO, 0,0, 0,0, 0,0,0 
3520 'MMWMM 

3530 DATAO, 0,7, 8, 18,42,74, 170 
3540 DATAÍ70, 74, 42, 18,8,7,0,0 
3550 DATAO ,8, 24, 160, 192, 144, 176,240 
3560 DAT A240, 176, 144, 192,160,24,8,0 
3570 '«#♦*#** 

3580 DATAO, 31, 32, 73, 82, 68, 73, 82 
3590 DATA68 , 73 , 34 , 30 , 2 , 2 , 2 , 4 
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3600 DATAO, 192,32, 16,80, 145,62,64 
3610 DAT A240, 224, 192,128,0,0,0,0 
3620 'WMMMM 

3630 DATAI, 2, 5, 8, 23, 32, 47, 32 
3640 DATA31 ,9,19, 39 , 96 ,0,0,0 
3650 DATAI 28, 64, 160, 16, 232, 4, 244, 4 
3660 DATA248, 144,200,228,6,0,0,0 
3670 '«««MM 

3680 DATA0,3,4,8, 10, 137, 124,2 
3690 DATAIS, 7, 3, 1,0, 0,0,0 
3700 DATAO, 248, 4, 146, 74, 34, 146, 74 
3710 DAT A34, 146,68, 120,64,64,64,32 
3720 '««««« 

3730 DATAO, 16,24,5,3,9, 13, 15 
3740 DATAIS, 13,9,3,5,24, 16,0 
3750 DATAO, 0,224, 16,72,84,82,85 
3760 DATA85, 82, 84, 72, 16,224,0,0 
3770 '««««« 

3780 DATA255, 255, 255, 255, 255, 255, 255, 255 
3790 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 
3800 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 
3010 ÜATA255, 255, 255, 255, 255, 255, 255 ,255 


3820 '««««« 
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3830 DATA255 , 255 , 255 , 255 , 255 r 255 , 255 r 255 
3840 DATA255 , 255 r 255, 255 , 255 , 255 , 255 , 255 
3850 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 
3860 DATA255, 255, 255, 255, 255 ,255 ,255, 255 

3870 

3880 DATAO, 0,0, 0,30, 63, 127,255 
3890 DATA255, 127,63,30,0,0,0,0 ' 

3900 DATAO, 0,0, 0,0, 192,240,254 
3910 DATA254, 240, 192,0,0,0,0,0 
3920 'HHWH# 

3930 DATA60, 126,255,255,255,255, 127,63 
3940 DATA15 ,3, 0,0, 0,0, 0,0 
3950 DATAO, 0,0, 0,128, 128, 192, 192 
3960 DATA224, 224, 224, 16,0,0,0,0 
3970 'ttWMMH 

3980 DATAI, 3, 7, 15, 15, 15, 15, 7 
3990 DAT A7, 7, 3, 3, 1,1, 1,0 

4000 DATA). 28, 192,224,240,240,240,240,224 
4010 DATA224,224, 192, 192, 128, 128, 128,0 
4020 

4030 DAT AO, 0,0, 0,1, 1,3, 3 
4040 DAT A7, 7, 7, 8, 0,0, 0,0 
4050 DAT A60 ,126, 255 , 255 , 255 , 255 , 254 , 252 
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4060 DATA240, 192,0,0,0,0,0,0 
4070 

4080 DAT A0,0,0,0,0,3,15,127 
4090 DATA127, 15,3,0,0,0,0,0 
4100 DATAO, 0,0, 0,120,252,254,255 
4110 DATA255,254, 252, 120,0,0,0,0 
4120 '####** 

4130 DATAO, 0,0, 0, 0, 0, 1, 1 
4140 DATAI, 0,0, 0,0, 0,0,0 
4150 DATAO, 0,0, 0,0, 0,0, 128 
4160 DATA64, 128,0,0,0,0,0,0 
4170 '««HM# 

4180 DATAO, 0,0, 0,2, 0,3, 5 

4190 DAT A3 ,2, 0,0, 0,0, 0,0 

4200 DATAO, 0,0, 0,128,224,64,224 

42i0 DATA64, 224, 128,0,0,0,0,0 

4220 

4230 DATAO, 0, 1,8,2,8,19,5 
4240 DATA27, 23, 8, 13,0,3,0,0 
4250 DATAO, 0,96, 144,216,104,200,244 
4260 DATA148, 224,148,129,128,160,64,0 
4270 ’««««« 

4280 DATAI 8, 74, 16 1,28, 106, 43, 183, 95 
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4290 DATAÍ9 i ,23,1 07 ,77,212, 35 ,72,1 
4300 DATA74,144,102,144, 218,232 ,201,244 
4310 DATA212, 225, 213, 121, 138, 160, 84,0 
4320 'HHt+HM 

4330 DATA8 , 34 , 1 29 , 20 , 1 70 , 0 , 1 7 , 68 , 1 09 
4340 DATA169, 16,34, 137, 16,66,8,33 
4350 DAT A8 ,144,38,128,26,160,73,32 
4360 DATA2 1,130, 20, 64, 10, 160,82,0 




CAPITULO 





Referências 

Nível de compreensáo pelo usuário: MEDIANA. 
Tipo de jogo: LÓGICA. 

Dificuldade do jogo: MEDIANA. 


O jogo 

Esta e' uma versão sofisticada de um jogo que algumas pessoas conhecem por “caça à raposa". 
Você deve conquistar o maior número possível de raposas com o uso de seu raciocínio. 


Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE"rapos" «- 1 

Para recuperar: para recuperar o programa da fita, digite: 

ÇLOAD"rapos” 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"rapos" 

Para recuperar: para recuperar o programa do disquete, digite: 


LOAD"rapos”*- 1 


Para jogar 

Digite RUN e «-* ou pressione F5. 

A primeira imagem que aparece é a de um tabuleiro quadrado com algumas casas cheias e 
outras vazias. As bolinhas representam as casas vazias e os quadradinhos as cheias. 

Cada casa do tabuleiro possui uma coordenada de localizaçffo formada por uma letra e um 
número (como na Batalha Naval). Por exemplo, a casa localizada no canto direito superior do 
tabuleiro possui a coordenada h,l. 

Seu objetivo é conquistar, com movimentos diagonais, o maior número possível de raposas, 
deslocando os quadradinhos de modo similar ao Jogo de Damas. 

Continuando com nosso exemplo, uma jogada válida seria a de deslocar o quadradinho 
da coordenada c,l para a coordenada e,3, assim pulando e conquistando o quadradinho da coorde- 
nada d, 2. 

A técnica deste jogo consiste em fazer estes movimentos de tal forma que se conquiste 
o maior número de raposas (quadradinhos). 

Para movimentar um quadradinho, responda à pergunta: 


"Entre a— h, 1 -8?” 


com as coordenadas atuais do quadrado a ser movimentado; as coordenadas devem ser separadas 
por vírgulas (exemplo:a,l). 

Em seguida surgirá a mensagem: 


"Entre a— h, 1 —8?" 


solicitando a coordenada para a qual será deslocado o quadradinho (exemplo: c,3). 

Seus movimentos devem transpor apenas um quadradinho de cada vez, sempre deslocando-se 
para uma casa vazia. 

Quando desejar interromper o jogo pressione CTRL + STOP. 
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10 REM — RAPOSA 
20 REM 

30 CLEAR300S SCREEN1 : COLOR 15,4,4:KEV OFFiGOSUB 460: UI D 
TH 29: CLS 

40 DIM A54<64>,AS<1> 

50 AS<0>="o" : AS< 1 >“CHRS<219> 

60 CLS: LOCATE 1,1 sPRINT" * a b c d e f g h" 

70 FOR 154=1 TO 3: LOCATE 2, 154*2+1 : PRINT I %y CHR* < 29 > > "■ -+ 

: LOCATE 4, 1**2: PRINT" !!!!!!!!": 

HEXT 

30 FOR 154=1 TO 64: A54< I54>=1 : NEXT 

90 FOR I 54= 1 9 TO 43 STEP 3: FOR J54=I54 TO 154+3: A54< J54>=0: H 
EXT J54: NEXT 154 

100 M54-0: LOCATE 23, 3: PRINT "s core" 

110 FOR 154=0 TO 7: FOR J54=l TO 3: LOCATE 3+ J54*2, 3+154*2: P 
R I MT A* < A 54 < 1 54*8+ J54 !> > : NEXT J54 : NEXT 1 54 
120 REM — corpo principal 

130 LOCATE 5, 19: INPUT"entre a-h, 1-8"; AS, BS 
140 IF AS="0" THEN GOTO 360 

150 IF ASC"a" OR AS>"h" OR BS<"0" OR BS>"3" THEN LOCAT 

E5i PRINT" incorreto " : GOTO 130 

160 LOCATE 5,20: INPUT "entre a-h, 1-3"; CS, D* 


170 IF CSC "a" 


OR AS>" h" OR DSC "0" OR DS>"8" THEN LOCAT 
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E 5: PRINT" incorreto. . . ” : GOTO 138 

180 F 1 = ASC < A* > -96 : F2=U AL « BS > - 1 f T 1 = ASC < CS > -96 : T2=UAL í DS 

>-l 

190 F=F1+F2*8: T=T1+T2*3 

200 IF ABS < F 1 — T IX >2 THEN GOTO 320 

210 IF ABS<F2— T2>< >2 THEN GOTO 320 

220 IF AX<<F+T>/2>=0 THEN GOTO 320 

230 IF A:í<F>=0 OR AX<T>=1 THEN GOTO 328 

248 AV.<F>=0: AX<T>=1: AX< <F+T>/2>=0: MX=MX+1 

258 LOCATE 5, 19: PRINT SPC<20> 

260 LOCATE 5, 20: PRINT SPC<20> 

270 PL AV " o5 1 1 40 m 1314 cogo5g " : LOCATE 24, 6: PRINT MX 

280 LOCATE F 1 : *2+3 * F2*2+3 : PR I NT AS < A"í < F > > : F OR K=0 TO 60 

0-.NEXT 

298 LOCATE Fl+Tl+3, F2+T2+3: PRINT AS< AX< <F+T>72> > 

380 LOCATE Tl*2+3,T2*2+3 sPRINT AS<AX<T>> 

310 GOTO 120 

328 PLAV"o2vl4a2": LOCATE 5, 19: PRINT" I r. vai ido ! " :FOR 

1=0 TO 2000: NEXT 

330 LOCATE 5, 19* PRINT SPC<20> 

340 LOCATE 5, 28: PRINT SPC<28> 

358 GOTO 120 

360 LOCATE 5, 19: PRINT MX; "argh ! 
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3 70 IF MV >*=46 THEN M*=" restou 1 ! *' s GOTO 41G 
380 IF MV >42 THEN M*=" restaram 2!":GOTO410 
390 IF MV. >35 THEN M*«" restaram 3! ,, tG0T0410 
400 M*=" restaram muitos!" 

410 LOCATE 3, 20: PRINT M# 

420 PRINT: PRINT" outro jogo? <*vn>" 

430 I*«INKEV*«IF I*="s" OR I*-"S" THEN GOTO 50 
440 IF I*="n" OR I*="N" THEN END 
450 GOTO 430 
460 REM 

470 FOR IV=1064 TO 1071*UPOKE I V, UPEEKC I V> <"2s NEXT 
480 FOR IV-520 TO 727:UP0KE IV, UPÉEK< IW2: NEXT 
490 UPOKE &H2010, &H14 


500 CLS: RETURN 



CAPITULO 





Referências 

Nível de compreensão pelo usuário: MEDIANO. 
Tipo de jogo: AGILIDADE. 

Dificuldade do jogo : FÁCIL. 


O jogo 

Como nas estórias de pescador sempre s3o pescados “milhares” de peixes, aqui você vai 
tentar pescar pelo menos um: seu problema será o caranguejo que procura a todo momento 
acabar com seu lazer, tentando cortar a linha do seu caniço. 


Fita K-7 

Para armazenar-, depois de digitar o programa, salve-o em fita cassete com o comando: 
CSA VE "pesca" 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"pesca" «- 1 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"pe»ca" +- 1 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAD"pe»ca'' «- 1 


Para jogar 

Digite RUN e^ ou pressione F5. 

Seu objetivo é pescar o máximo de peixes, que nadam no mar. Você deve evitar que a linha 
do seu caniço seja cortada pelo caranguejo, recolhendo a linha quando ele se aproxima. 

Para movimentar o caniço, utilize as teclas de movimentação de cursor “para esquerda” 
(«-) e “para direita” (-*). 

Para mergulhar o anzol, mantenha a barra de espaço pressionada, e para recolher a linha, 
simplesmente deixe de pressionar a barra de espaço. 

Note que você só poderá mover a posição do caniço após toda a linha estar recolhida. 
Na tela de jogo existem as seguintes informações: 

pesca— MSX— placar - placar de pontos 

ANZÓIS: JJJ— quantidade de anzóis que vocé tem, onde cada “J” representa um anzol. 

Após ter perdido todos os anzóis, aparecerão as mensagens: 

"JOGO TERMINADO" 

"OUTRA PARTIDA S/N?" 

Se vocé pressionar “S” (de sirfi), o jogo será reiniciado, e em caso de “N” (de não), o jogo 
será encerrado. Quando desejar interromper o jogo a qualquer momento, pressione CTRL + STOP. 

ÍO REM — Pesca piranha 
20 REM 
30 DEFINTA-Z 

40 0NINTER0AL-50G0SUB i(30 


50 60SUB Í000 'Inicio 
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ÓQ GOSUB 1805 GOSUB 180 

70 INTERUALON 

80 r PRINCIPAL 

90 F0RBN=3T011STEP2 

iOO IFF ( BN ) “0THEN120 'ncxt 

íiO G0SUB230 'MOVE OS PEIXES 

120 G0SUB320 'LE 0 TECLADO 

130 G0SUB360 'CANICO 

140 G0SUB720 'SIRI 

150 NEXT 

160 IFRNDdX . 03THENDX (11 ) “-DX ( í 1 ) 

170 GOT 000 

180 G-' < 0+ i ) M0D6 s W=QM0D2 

190 ON ( GM0D3 ) + 1G0T 0200 ,210,220 

200 PUTSPR ITEO, ( 230,20) ,9,W*RETURN 

210 PUTSPR ITEi, (200,158), 12 , W+2 : RETIJRN 

220 PUTSPR ITE2, (60, 150) , 12 , W+2 : RETURN 

230 'NOUIMENT 0 DOS PEIXES 

240 X(BN)=X(BN)+DX(BN) 

250 Y<BN>=Y(BN)+DY(BN) 

260 IFX < BN > >XXTHENDX<BN)*-XD-RND< i ) #2 * X ( BN / “XX s D ( BN ) “0 
270 IFX<BNXXNTHENDX(BN)=XD-RND(l)*2sD(BN>*í 
280 IFBN=1 1THEN3Í0 
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290 IFY < BN ) > YXTHENDY ( BN ) =-YD 
300 IFY<BNXYNTHENDY<BN)*YD 

310 PUTSPRITEBN, <X(BN) ,Y<BN> > ,C(BN> ,BN*2+D<BN> sRETURN 

320 REM LE 0 TECLADO 

330 T=STICK<K)5 U=STR IG ( K ) 

340 IFF=3THENRETURN 

350 IF U THENF=iELSEIFF< >0THENF=*2 : RETURN 

360 'MOVIMENTA 0 CANICO 

370 ONF+iGOT 0380 ,640 , 640 , 420 

380 REM DESLOCA 0 CANICO 

390 IFT=3ANDX ( 6 ) < 220THENX < 6 ) *X (6 ) +3 s LINE < X< 6 ) +9 r 39 ) -ST 
EP (-3,0) ,14 

400 I FT=7ANDX < 6 ) >60THENX < 6 > =X < 6 ) -3 1 L I NE < X < 6 > +9 , 39 > -STE 
P (3,0) ,4 

4Í0 PUTSPRITE6, <X(6) ,Y<6) ) ,1,12: RETURN 

420 'FISGADA 

430 Y ( 6 ) =Y < 6 ) -5 

440 IFY ( 6) < 45THEN490 

450 LINE <X(6)+9,Y (6) )-STEP (0,5) ,7 

460 PUTSPR ITE6, ( X < 6 ) , Y < 6 ) > , í , i2 

470 PUTSPRITEG, <X(6),Y<6)+10),C<BN), G*2+D ( Q) 

480 PLAY"o4c32" , "o3e32" s RETURN 
490 PLAY"o5132cdecdecde" r "o3c4" 
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500 F-0 : Y < 6 > =40 : TEN=TEN+ ( Y ( G) -90 ) * . 4 

510 L INE < X < 6 ) +9 , 35 > -STEP ( 0 , 29 ) , 4 

520 PUTSPRITEG, <X<6> ,209) :ü=0 

530 INTERVALSTOP 

540 LINE( 155,0)“ <255 ,8) ,4,BF 

550 PRESET < 155 , 1 ) 

560 PR INT#1 , USINO" HttHWO" ; TEN 
570 NOK»NOK-i s INTERUALON 
580 IFNOK >GTHENRE ÍURN 
590 RESTORE 1940 sGOSUBl 330 :N0K=4 
600 PLAY"r21 16o5er.ececr.4r 1" 

610 IFPLAY < 0 ) THEN610 

620 XÜ=XD+3: IFXD > 16THENXD=17 

630 YD=YD+lc IFYD >9THENYD=iO : RETURN 

640 REM LANCA 0 ANZOL 

650 I FF* 1 ANDY <6 ) < 150THENY <6)“Y<6) + 5*LINE<X<6)+9,Y<6) )*• 
STEP (0,-5) ,1 sPLAY"o5a32" 

660 IFF”2ANDT ( 6 ) > 40THENY ( 6 ) »Y < 6 ) -5 í L INE ( X < 6 ) +9 , Y ( 6 ) )-S 
TEP (0,5) ,7 

670 IFY <6 ) < 41 THENLINE ( X< 6 >+9 , 40 ) -STEP <0,24) , 4sF=0 
680 F0RI-3T09STEP2 
690 IFF ( I )=0THEN550 

700 IFY(6XY(I ) +5 ANDY (6) > Y < I ) -5THENIFX< 6 ) < X ( I ) +5ANDX ( 6 
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) > X < I ) -5THENF =3 * G"I : F < I ) =0 : 1-7 : NEXT 
710 PUTSPRITEó, ( X 1 6 > r Y(6) ) , 1 * RETURN 
720 'SIRI Pegou? 

730 IFNOT ( Y < 6 ) > Y < í 1 ) ANDX (. 6 ) +9 > X (. í í ) ANDX ( 6 ) < X ( í i ) +7 > THE 
NRETURN 

7 AO L INE (X(ó)+9,65)-<X<6) -*-9 , Y < 6 ) > , 7 
750 PLAY"1 32" 

760 PUTSPRITEó. < X< 6 ) , Y (6) ) , 1 
770 A=80~ < Y < 6 ) -60 ) /2 * PLAY "n=a • " 

780 IFPL.A Y <0 ) THEN780 

790 IFY ( 6 > < 170THENY ( 6 ) =Y(6) +5 : GOT 07 60 

80Ü PLAY"14o2a"*ANZ0L»ANZ0L-l 

8.10 L I NE ( 255 , i8>-(215 r iQ) , 4 , B F 

820 INTERUALSTOP 

830 PRESET (22Í ,10) 

840 PR INT#i , STR INGS « ANZOL , "J " > 

850 IN TERUALON 

860 LI NE < X < 6 ) +9 , 40 ) - < X < 6 ) +9 , 64 ) ,4 
870 Y(6)=40! F=0 sF(G)=i: G=ü 
880 IF ANZOL >QTHENRETURN 

890 FOR I=0T03i s PUTSP RITE I , (0,209 > : NEXT s L INE < 68 , 80 ) - < 2 
18,120) ,4,BF 


900 A4="J0G0 TERMINADO" 
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910 LINE(68,80)-<2i8 r 120) r 4,BF 
920 PRESET (72,96) sPRINT#i,A4 
930 TIME=0 

940 IFTIME< 250THEN940 

950 AS-"0UTRA PARTIDA S/N?" 

960 LINE<68 r 80>-<218 r 120) ,4 r 6F 
970 PRESET < 72 r 96 ) s PR INT#i r AS 

980 R4=INKEY4:IFR4< >"n"ANDR4< >"s"THEN980ELSEIFR4="s"TH 

EN990ELSEEND 

990 RUN 

1000 'INICIA 

1010 C0L0R15,4,l: SCREEN2 ,2,1 

1020 DIMXÍ13) r Y(13) r DX<13) , DY < 13) r C<13) r F < 13> f E X(16) r 
D< 13 ) 

1030 PLAY"t 1 ov" 

1040 FOR I -0T015 * READEX ( I ) ' NEXT 
1050 FOR I=iTOi ÍSTEP2 
1060 G0SUB1400:SPRITE4< I*2)=A4 
1070 SPR ITE4 < 1*2+1 ) =84 ! NEXT 
1 080 QOSIJB 1 400 í SPR ITE4 < 12 ) =A4 
1090 GOSUB 1400 5SPRITE4(8) =A4 
1100 GOSUB 1 400 sSPRITE4(0>=A4 
1110 SPR I TE4 ( 1 ) =B 1 
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1 120 LINE < 0 r 65 ) - ( 255 ,191), 7, BF 

í 130 LINE ( 0 , 55 ) - < 30 ,192),10,BF 

i í 40 LINE(30,50)-STEP (20,20) r 10, BF 

i í 50 FOR I=5T021STEP8 

1160 CIRCLEÍ70+I , 25 ) r 5 r 15 

1170 P AINT < 70+ 1 , 25 ) , 1 5 : NEXT 

1180 PSET < 30 ,170) ,10 

1190 FOR I=30T0255STEP20 

1200 LINE-STEP <20,RND( 1 >*20-10) , 10: NEXT 

1210 PAINT<255, 191) ,10,10 

1220 0PEN"gr p s "ASttl 

1230 A**" PESCA-MSX-placar s 00" 

1240 PRESET (iO,i)sPRlNTHi, AS 
1250 Ai="anzois s JJJ" 

1260 PRESET <1 55, 10):PRINTRi, Ai 
1270 PUTSPRITE4, <8, 39) ,15,8 
1280 LINE < 24 , 43)- < 58,39 >, 15 
1290 LINE < 58 , 39 ) - < 109 , 39 ) , 14 
1300 XD=5 sYD=2:K=0:F =0 : ANZ0L=3 : NOK =4 
1310 XX=255 : XN=36 : YX=150 s YN=90 
1320 X ( 6 ) “100 : Y ( 6 ) =40 
1330 REM 

1340 FOR I =3T0i 1STEP2 
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1350 X ( I ) = 1 *20 : F ( I ) = 1 

1360 IFK6THENDX' 1 )=-XD:D< I ) «=0ELSEDX < I > =XD : D < I ) = 1 

1370 IF I < 4THENDY ( I ) =-2ELSEDY ( I ) =2 

1380 READY (I),C(I>: NEXT I 

1390 DX ( 1 1 ) “8 * DY ( í 1 ) *0 : RETURN 

1400 Al“SP ACES ( 32 ) s BÍ=At 

1410 FOR J-0T031 

1420 READC*:L=VAL("Ãh"+C%) 

1430 MIDI» ( A% , J+l ) a, CHR% ( L ) 

1440 L“EX<L/16)+EX< LMODi 6 ) * 16 

1450 MID4<B%, J+17+(J> 15) *32) =CHR*(L> :NEXT: RETURN 
1460 DAT AO, 8, 4, 12,2,10,6, 14, 1,9,5 
1470 DATA13, 3, 11,7,15 
1480 'PLANTAS 

1490 DATAOO , 00 , 00 , 00 ,11, 08 ,18,0c 
1500 DATA05,47,67, 27 ,34,14,13,0b 
1510 DATAOO, 00, 40, 60, 20, 70, 70, eO 
1520 DATAcO,80,8i,bO,bO,aü,aü,cO 
1530 'peixel 

1540 DATAOO, 00, 03, 06, if ,3f ,7f ,df 
1550 DAT A7f , f f , 3f , if , Of , 06 , 03 , 00 
1560 DATAOO , cO , 00 , 00 , 00 , c 1 , e2 , f 6 
1570 DATAfe,f2,ei ,80,00,00,00,80 
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1580 'peixe-2 

í 590 DATAOO , 00 , 03 , 06 , 1 f , 3f , 7e , de 
1600 DATA7e,fe,3e,íf,0f ,06,03,00 
1610 DATAOO , cO , 00 ,00,0Q,cl,e2,f6 
1620 DAT Afe,f2,ei, 80 , 00 , 00 , 00 , 80 
1630 'peixe-3 

1640 DATAOO, 00, 03, 06, if, 37, 76, dó 
1650 DATA76,f6,36, 17, Of ,06,03,00 
1660 DATAOO, cO, 00, 00, 00, cl , e2,d6 
1670 DAT Ade , d2 , ei ,80,00,00,00,80 
1680 'peixe-4 

1690 DATAOO, 00, 00, 01, 02, 07, 3f,ef 
1 700 DAT A3f , 1 f , 07 , 02 , 01 , 00 , 00 , 00 
1710 DATAOO, 00, 00, 00, 00, 02, c3,fc 
1720 DAT Af 0,00, 00, 00, 00, 00, 00, 00 
1730 'siri 

1740 D AT A 90 , 90 , 90 ,64,i4,0f,ff,0d 
1750 DAT Af e , 07 , f b , 08 , 70 , 80 , 00 , 00 
1760 DATA09 , 09 , 09 ,26,28,f0,ff,b0 
1770 DATA7f ,eO,df , 08 , Oe , 01 , 00 , 00 
1780 REM ANZOL 

1790 DATAOO, 00, 00, 00, 00, 00, 00, 00 
1800 DAT A20 , 60 , 60 , 20 , 30 , 19 , Of , 00 
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1810 DATA40,Ó0,60,40,40,40,40,40 
1820 DATA4Q , 40 , 40 , 40, c0 , c0 , 00 , 00 
1830 REM PESCADOR 

1840 DATAOO , 00 , Oi ,03,03,07 , 07,0f 
1850 DATAOf,if,if , if ,if,Of ,07,0f 
1860 DATAOO, 00, 80, fO,cO,c 1,02, 84 
1870 DATAc8,78,10,f0,f0,e0,80,e0 
1880 REM SOL 

1890 DATAOO, 00, 60, 63, 47, Of , if , if 
1900 DATAif,if,Of ,47,63,60,00,00 
1910 DATAc0,f0,00,e0,f0,f8,fb,fb 
1920 DATAfb r fb,f0,e0,c0,00,30,f0 
1930 " 

1940 DATA88, 6, 105, 12, 122, 6, 139, 13, 70, 6 
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Referências 

Nível de compreensão pelo usuário: MEDIANO. 

Tipo de jogo: JOGO DE CARTAS/1NTUIÇÃO E SORTE 
Dificuldade do jogo: MEDIANA. 

O jogo 

Se você já visitou (ou viu) algum cassino em Las Vegas ou na Europa, certamente notou que 
ao lado da roleta sempre havia uma mesa de vinte e um. 

Contudo, tome cuidado! Náo vá transformar sua casa num cassino... 

Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita cassete com o comando: 

CSA VE "vinte" 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD "vinte" ^ 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"vinte1 " 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAD"vinte1"<-' 

Para jogar 

Digite RUN e ou pressione F5. 

Após a execução da música inicial pressione a barra de espaço para iniciar o jogo. 

Na parte superior da tela surgirá a primeira carta do computador; na parte inferior surgirá 
a sua primeira carta. 

Seu objetivo é fazer com que a soma dos valores das cartas seja igual a 21 . Vence o jogador 
(vocé ou o micro) que mais se aproximar de 21; o jogador que ultrapassar o valor 21 perderá a 
partida automaticamente. 

Como estamos num cassino, existem apostas em dinheiro; no inicio vocé possui Cz$ 50,00, 
podendo realizar apostas de 1 a 9 cruzados. Para apostar um dado valor basta pressionar a tecla 
numérica correspondente. 

Após realizada a aposta é mostrada na tela a sua segunda carta, seguida pela pergunta: 
"Outra carta? (S/M)" 

Responda “S” caso deseje mais uma carta; note que esta resposta deve ser baseada em sua 
lógica e intuição, de modo que a resposta “N" seja dada no momento oportuno. 

Caso vocé ultrapasse o valor 21 o jogo é automaticamente interrompido, sendo exibida a 
mensagem : 

"Outra partida?" 

Se vocé responder “S”, uma nova partida será iniciada; caso contrário o jogo terminará. 
A carta de “AS” vale um ponto e as cartas com figuras valçm dez pontos cada. 

Para interromper o jogo a qualquer instante pressione CTRL + STOP. 

10 REM — CINTE E ÜM 
20 REM 

30 CLEAR300 , &HF300 : SCREEN 1 : UI I DTH 30 : COLOR 1,15,15: CLS 
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: KEV OFF 

40 DEFINT A-Z: DIM A< 13. 4, 2> , K$< 13> , MK<4> , M<8> , C<8> 

50 GOSUB 890 

60 CLS : CO=50 : I =RND < -T I ME > 

70 FOR 1=1 TO 52: POKE &HF300+ 1,0: MEXT : CM= 1 : MA= 1 
80 FOR 1=0 TO 3: C< I >=0: M< I >=0: NEXT 
90 CLS: PR I MT" Computador :": GOSUB 760 
100 X=0:V=1: GOSUB 820:C<CM>=KB 
110 LOCATE 2 , 10: PRINT"Uoce: 

120 GOSUB 760 : X=0 : S ,= 1 1 : GOSUB820 :M< MA > =KB 

130 REM principal 

140 CI=CO: IF CO >9 THEM CI=9 

150 LOCATE 1,21: PR I NT " Uo ce esta.com Cz*"CO 

160 LOCATE l,22:PRINT"Quanto aposta ? < 1 -"CI">": 

170 IF INKEV*< >" " THEM 170 

180 G*=INKEV*:IF G*="" THEM 180 

190 G=UAL<G*>:IF G=0 THEM 180 

200 IF G>CO THEM 180 

210 REM 

220 PRINTG 

230 MA=MA+1: GOSUB 7 60 : M < MA > =KB : X=5* < MA- 1 > : V«= 1 1 : GOSUB 8 
240 GOSUB 680: IF GM>20 THEM LOCATE 5,19: PRIMTSPC<24> : G 


OTO330 
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250 IF MA >5 THEN 330 

260 LOCATE 5, 19: PRINT"Outra carta ?<S/N>" 

270 IF INKEV*< >" " THEN 270 

280 G*=INKEV*:IF G*=" " THEN 230 

290 IF G$="s" OR G#="S" THEN 230 

300 IF G*="n" OR G*-"N M THEN LOCATE 5 , 19: PRINTSPC<24> : 
GOTO330 

310 LOCATE 5,19: PR I NTSPC < 24 > : PL AV M o2v4al6" 

320 GOTO 260 
330 REM com 

340 CM=CM+1 : GOSUB 7601 C<CM>*KB» X-5*<CM-1 > » V-l * GOSUB 82 

0 : GOSUB 600 

350 IF GC >15 THEN 370 

360 IF CM<6 THEN 330 

370 REM ham 

380 UUN=0:GN=GM: IF GM>21 THEN GM=@ 

390 GD=GC: IF GC>21 THEN GC=0 

400 IF GM >GC THEN UIIN-2:M*»" Ooce venceu ! 11 : CO=CO+G: GOT 
O 430 

410 IF GM=0 AND GC=0 THEN UIN-1:M*=" Ninguém venceu!": 
GOTO 430 

420 CG=CO— G: M$=" O computador venceu!" 

430 FOR 1=0 TO 3: LOCATE 0, 19+1 : PR I NTSPC <29 >: NEXT 
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446 LOC ATE 5 , 20 : PR I NT " Compu tad o r = " GD 
450 LOCATE 1 1 , 21 : PRINT"Uoce = M GN 

460 PRINT M$: IF UI IN— 2 THEN PLAV " tl2018o5m6500sggl6gl6 
v 1 5gsg4agagg 1 6g 1 606o 1 5 c2s c4 

470 IF WIN=0 THEN PLAV " t22013rn7000s03d4ddd4feeddd-,-15 
d4sd4" 

480 IF PLAV < 0 > THEN 480 

490 IF CCKl THEN 560 

500 IF INKEVSO"" THEN 500 

5 1 0 LOCATE 0,10: PR I NTSPC < 5 > ; " Ou t ra P a r t i d a ? < S.-"N.;> " : FO 

R I#=0 TO 200 : NEXT : BEEP 

520 Ü*= I NKEVf : LOCATE 0 , 1 0 : PR I NTSPC < 29 > 

530 IF G*- ,, s" OR G$="S" THEN 70 
540 IF G$="n" OR G$="N" THEN 560 
550 GOTO 510 
560 REM fim de jogo 

570 CLS: LOCATE 5, 8: PRINT"Uoce saiu com Czf" CO 
580 LOCATE 7, 1 1 : PRINT" A te a próxima! 

590 END 
6O0 REN gok 

610 F=0: GC=0: FOR 1=1 TO CM 
620 IF C<I>=1 THEN F=1 


630 NEXT 
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646 FOR 1 = 1 TO CM:GOGC+C<I>:NEXT: IFGO20 OR F=0 THEN 
RETURN 

650 IF GC > 1 1 THEN RETURN 
660 GC=GC+ 1 O 
670 RETURN 
630 REM princ. gok 
690 F=0: GM=0: FOR 1=1 TO MA 
700 IF M < I > = 1 THEN F=F+1 
710 NEXT 

720 FOR 1 = 1 TO MA: GM=GM+M< I > : NEXT : í F GM>20 OR F=0 THEN 
RETURN 

730 IF GM>11 THEN RETURN 
740 GM=GM+10 
750 RETURN 
760 REM cartas 

770 KA=RND< 1 >*52+1 : IF PEEK <&HF300+KA> THEN 770 
780 POKE SHF300+KA, 1 

790 M=KA'-. 1 3: K=KA MOD 13: IF K=0 THEN K=13:M=M-1 
30G KB=K:IF K>10 THEN KB=10 
310 RETURN 
320 REM carta 

330 PLAV " o5u 1 2a8 " : LOCATE X, V: PRINTAA* 

340 FOR 1=0 TO 4: LOCATE X, V+I+l : PRINTCHR*< 153>; 
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850 FOR J=0 TO 2: IF A<K,I,J> THEN PRINT CHR* < MK < M > > ; E 
LSE PRINT" 

360 NEXT : PR I NTCHR* < 1 53 > : NEXT 

870 LOCATE X, V+6: PRINTCHR*< 153> " "K$<IO; CHR$< 153> 

880 LOCATE X, V+7: PRINT AB*: RETURN 
390 REM data 

900 DATA0, 0,0,0, 0,0,0, 1,0, 0,0, 0,0, 0,0 
910 DATA0, 0,0,0, 1,0, 0,0, 0,0, 1,0, 0,0,0 
920 DAT A0, 1,0, 0,0, 0,0, 1,0, 0,0, 0,0, 1,0 
930 DATAI ,0, 1,0, 0,0, 0,0, 0,0, 0,0, 1,0,1 
940 DATAI, 0, 1,0, 0,0,0, 1,0, 0,0,0, 1,0, 1 
950 DATAI, 0, 1,0, 0,0, 1,0, 1,0, 0,0, 1,0, 1 
960 DATAI, 0, 1,0, 1,0, 1,0, 1,0, 0,0, 1,0, 1 
970 DATAI , 0, 1,0, 1,0, 1,0, 1,0, 1,0, 1,0, 1 
980 DATAI, 0, 1, 1,0, 1,0, 1,0, 1,0, 1, 1,0, 1 
990 DATAI, 0, 1, 1,0, 1, 1,0, 1, 1,0, 1, 1,0, 1 
1000 DATA0, 0, 1,0,0, 1,0,0, 1, 1,0, 1,0, 1,0 
1010 DATA0, 1,0, 1,0, 1, 1,0, 1, 1,0, 1,0, 1, 1 
1020 DATAI , 0, 1 , 1 , 0, 1 , 1 , 1 , 0, 1 , 1 , 0, 1 , 0, 1 

1030 RESTORE 890: FOR 1=1 TO 13: FOR J=0 TO 4: FOR U=0 TO 
2: READ A< I , J, U> : NEXT U,J,I 
1040 DATA 155, 154, 154, 154, 156, 157, 154, 154, 154, 158 
1050 FOR 1=1 TO 5: READ A: AA*=AA$+CHR$< A> : NEXT: FOR 1=1 
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TO 5: READ A: AB$=AB$+CHR*< A> : NEXT 
1060 FOR 1=0 TO 3s MK< I >=1+134: NEXT 

1070 FOR 1=24 TO 56:UP0KE 1+1048, UPEEK < I >: NEXT : FOR 1= 
176 TO 224: UPGKE 1+1048, UPEEK < I >: NEXT 
1080 UPOKE &H2010, &H6F 

1090 K$< 1 >=" A " : F0RI=2T09: Kí( I >=RIGHT$<STR#< I > , 1 >+” " i 
NEXT 

1100 K*<10>="10" 

1110 Kí < 1 1 >=" J " 

1120 K*<12>-"Q " 

1130 K*<13>«"K " 

1140 LOCATE, 8: PR INT "******************************"; 
1150 PRINT"* *"> 

1160 PRINT"* UINTE E UM *"; 

1170 PRINT"* * n t 

1180 PRINT"******************************"; 

1190 A$=" m7000 11501 8o5sgv 1 5e 1 6 f 1 6sgv 1 5e 1 6 f 1 6g06 co5 basg 
4v 1 Sg^sg 1 -; 1 5e f g 

1 200 B$= " o 1 1 50m7000v 1218r8cr8cr8cr3c r8gg4g f e9 
1210 Cí="tl50o2rr.7000sl cgcgdgdg5 
1220 PLAVA$,B$,C$ 

1230 Al$="savl5al6b-16sa>v»15al6b-16agfed2d4sd4 
1240 Bl$=" r8o5coar8f r8cr8gr8gr81 16o3gabocdefg 
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1250 Cl*="cfcfdgdg5 
1260 PLAV A1$,B1$,C1* 

1 2?0 A2#= " ey 1 5esev 1 5 cs f v 1 5 f s f v 15 f s f vl 5d sgy 1 Sgsgv 1 5eo6 c 
4o5a4g. vl5al6agfed c2sc2 

1280 B2*="o'v>1218r8oc4rc4rd4r8osa4f4«v;13g2gwl loco3bagosc 
4 

1290 C2í=" cgdgcgcfdgdgcolgo2c2 
1300 PLAV A2$,B2$,C2* 

1310 IF PLAV<0> THEN 1310 

1320 LOCATE 8, 22* PR INT" TECLE ESPAÇO" 

1330 IF STRIG<0> THEN RETURN 


1340 GOTO 1330 
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GUERRA DOS MUNDOS 


Referências 

Nível de compreensão pelo usuário: MEDIANA. 
Tipo de jogo: AGILIDADE. 

Dificuldade do jogo: MEDIANA. 


O jogo 

A cidade está sendo destruída pelos OVNPs com bombas fotônicas... mas você pode impedir 
a destrui çáo total com sua habilidade no manejo da arma terrestre de defesa. Você só tem de 
acertar o alvo! 


Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE"guerr" 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"guerr" «-* 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 


SAVE"guerr" 


Para recuperar: para recuperar o programa do disquete, digite: 


LOAD"guerr” +- 1 


Como jogar 

Digite RUN e ^ ou pressione F5. 

A tela inicial do jogo apresenta as seguintes mensagens: 


"Objetivo: New York" 

"Mova a arma com as teclas de cursor ou joystick" 
"Pressione a barra de espaço para disparar" 


Estas mensagens são uma breve descrição de como jogar: pode-se utilizar as teclas de 
movimentação do cursor t, I) ou o joystick. 

Para disparar a arma pressione a barra de espaço ou o botão do joystick. 

Na mesma tela mostram-se os pontos que cada elemento inimigo representa na “Guerra 
dos Mundos”. Para iniciar pressione qualquer tecla. 

No campo de batalha vemos a cidade de Nova York sendo bombardeada pelos discos voado- 
res. No canto esquerdo superior da tela aparece “RECORD: 50000”, mostrando a pontuação do 
melhor jogador; á direita aparece a mensagem “PONTOS: 0”, indicando a pontuação atual do 
jogador que está combatendo. 

Utilizando as teclas do cursor. ou o joystick, vocé movimenta a arma de defesa e pode, 
então, tentar destruir os discos e suas bombas fotônicas. 

A medida que o tempo passa os discos tentam destruir a cidade; quando ela for totalmente 
aniquilada o jogo será reiniciado. 

Se você superou a marca dos 50.000 pontos, seu recorde será colocado no canto esquerdo 
superior da tela. 

Para interromper o jogo a qualquer momento pressione CTRL + STOP. 

Í0 REM — Guerra dos Mundos 
20 REM 


3G COLOR i . 0 r 4 
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40 SCREEN 1 , 2 0 

50 CLEAR 1 Oüü s LOCATE 10, í 0 : PR INT '•'AGUARDE'" 

60 DEFSNG A 

70 DEFINT B-R .T-Z 

80 DEFSTR 8 

90 KEY OFF 

100 SP RI TE OFF 

í 10 DIM SC < 7 ) P ST ( 8 ) 

120 AH-50000 ! 

130 GOSUB 2590 
140 SPR ITEft < 1 0 ) =S1 
150 SPRITEi(ii) »S2 
160 ’ 

170 ' 

180 ’ 

190 FOR 1=0 TO 9 
200 PUTSPRITE I, (255, 192) ,0,1 
210 NEXT I 
220 CLS 

230 S-" OBJETIVO: NEW YORK" 

240 PRIWTS 

250 S=" " 


260 PRINTS 




84 


MSX ■ Jogos. Para aprender e criar. Jogos profissionais 


27 0 PRINT 
280 PR INI 

290 S="M0UA A ARMA COM AS TECLAS" 

300 PRINTS 

310 S="DE CURSOR OU JOYSTICK" 

320 PRINTS 
330 PRINT 

340 S="PRESSIONE A BARRA DE ESPAÇO PARA DISPARAR" 
350 PRINTS 
360 PRINT 
370 PRINT 

380 PUTSPRITE ÍO , ( 40 r 78 > , 3 r í 0 
390 S=" PONTOS ÍÜOO" 

400 PRINTS 
410 PRINT 
420 PRINT 

430 PUTSPRITEíí r <40, Í02> r 5 r li 
440 PRINTS 
450 PRINT 
460 PRINT 

470 PUT SPRITE8 r < 40 ,126), 9.8 
480 S=" PONTOS 10000" 


490 PRINTS 
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300 PR INI 
5iQ PRINT 
520 PRINT 
530 PRINT 

540 S»"PRESSI0NE QUALQUER TECLA" 
550 PRÍNTSj 
560 S-INPUTS(i) 

570 PUTSPRITE8, (40,208) ,0,8 
580 PUT SPR1TE 10, (40,208) r Ú r i.O 
590 CLS 
600 ' 

6Í0 ' 

620 ' 

630 CLS 

640 SOUND 7 , ÃB 10l í 1000 
650 LOCATE 0,24 
660 FOR 1*0 Í07 
670 PRINTSC(I) 

680 NEXT1 

690 F OR I =ÜT 06STEP 6 
700 FOR J*OTOi 
710 L0CATE6+ I , 2+ J+I 


720 FOR K =232 T 02 38 
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73 0 PRINTCHR4(K+7*J > ; 

7 AO NEXTK , J , 1 
750 LOCA TEO , 0 
760 PR INT''RECORD s " s 
770 PR INTUS1 5 AH 
780 AP=0 
790 CC=129 
800 ' 

810 ' 

820 ' 

830 SPR ITEJ < 4 ) “ST ( 4 ) 

840 XS=128 
850 YS“i43 
860 FOR I= I 0T02 
870 J=I#Í 6 
880 K=143+ J 

890 PUTSPRITEI,< 128 ,K),14,I 
900 PUTSPRITE4,( 123,139 1,6, 4 
910 NEXT 
920 ' 

930 ' 

940 r 


950 CL=1 
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960 0S=-4 
970 L0CATE15 y 0 

980 PRINT"P0NT0S s "IL0CATE22 , 0 
990 PRINTUSING' KMUHWWW^AP 

í 000 S=5PRITE<6<7> 

i010 IF S“8iTHENS“S2ELSES“Si 

1020 SPR ITE% < 7 ) =S 

1030 XI =255 

1040 Y I = 1 ó 

1050 CL=CL+2 

1060 IFCL >9THENCL=3 

1070 ' 

1080 r 
1090 ' 

1100 XI»XI+OS 
1110 I=OS 

1120 IF XI < -15 THENOS=-OS 
.1130 IF XD255-0S THEN OS=-OB 
1140 IF OSOI THEN YI=YI+8 
1150 PUTSPR ITE7 , (XI , YI ) , CL , 7 
1160 IF Y I > 182THEN2470 
1170 IFY1 < 1 12THEN1300 


1180 1 = < Y IAND248 > /8*32+32 
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í í 90 1*1 + (XI AND248 > /8 

í 200 I=&Hi800+I 

Í2Í0 IFVPEEK ( I ) =32THENi250 

1220 VPQKEI , 32 

1230 COCC-i 

1240 IFCOOTHEN247Q 

1250 1=1+3 

1260 IFVPEEK ( I ) =32THEN1300 

1270 VPOKEI , 32 

1280 CC*CC-i 

1290 IFCC*0T HEN247Q 

1300 IFBTHEN1400 

1310 IFXK 40RXI >220THENi590 

1320 R=RND<-TIHE>*4 

1330 IFRTHEN1590 

1340 ' 

1350 r 
1360 ' 

1370 B=í 

1380 XB=XI+8 

1390 YB=YI+8 

1400 YB= YB+6 

1410 IFYB >191 THENB=Q 
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1 420 PUTSPRITE8, ( XB , YB ) , CL r 8 
í 430 I » ( XB+5AND248 ) /& 

1440 J*=< YB+4AND248)/8*32+l 
.1450 J-&H1800+J 

1460 k^vpeek<j> 

1470 I F K < 2 2 4 0 R K > 2 2 7 T H E N i 5 9 0 
1480 VPOKEJ , 32 

1490 PUTSPR ITE8 , ( XB r 192 ) , CL r 8 

1500 PUTSPR I TE9 , < XB -3 , YB--3 > , i , 9 

1510 G08UB3150 

1520 YB-192 

1530 CC=>CC-1 

1540 IF' CCTHEN1410 

1550 GOTO 2470 

1560 ' 

1570 " 

1580 ' 

1590 POR I -OT 02 
.1600 J=STICK < I ) 

16 10 1FJTHENI*2 
1620 S-INKEY* 

1630 NEXTI 


1640 T*0 
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1650 ” 
í 660 ' 

ÍÓ70 ' 

1 680 XS=XS+ ( 2ANDXS < 1 36AND J=3 ) 
1690 X3«XS“ ( 2ANDXS > 120ANDJ=7 ) 
í 700 SPRITE5(4)»Sr< <X3-í20)/2) 
1710 PUTSPR ITE4 r ( 123 r 139 ) r 6 , 4 
1720 YS=143+ABS< XS-Í28) 

1730 IFFTMENÍ 920 
1740 ' 

1750 r 
1760 ' 

1770 FOR I=0T 02 
1780 T»STRIG(I) 

1790 IFTTHENI*2 
1800 S=INKEY$ 

1810 NEXTI 
1820 IFT-0THEN1970 
1830 SOUNDQ, 100 
1840 S0UN012 , 20 
1850 SOUNDí 3 P 3 
•1860 H=XS-128 
1870 0=-<8-ABS(H) ) 
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1 880 F = i 
í 890 ' 

1900 ' 

1910 ' 

1920 I=X>0ANDX<255ANDY>YI 

1930 IF1THEN1990 

1940 F=0 

1950 H=0 

1960 V=0 

1970 X=XS-5 

1980 Y=YS-13 

1990 X-X+H 

2000 Y=Y+V 

2010 PUTSFR I TE6 r < X , Y ) , 15 , 6 

2020 B0BUB210D 

2030 IFT=0THENiiÜG 

2040 SOUNDOjO 

2050 G0SUB3380 

2060 GOTO 1100 

2070 ' 

2000 ” 

2090 ' 

2100 IFF=0 THENRE ÍURN 
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2110 I=ABS< Y-YI ) 

2120 J=ABSCX-XI ) 

2130 K=i 

2140 ÍFI < 5AND J<8THEN2190 
2150 I=ABS ( Y-YB > 

2160 J=ABS<X-XB) 

2170 IFI>80RJ>4THENRETURN 
2180 K =0 

2190 PUTSPRITE6, <XS r YS> ,15,6 
2200 F-0 
2210 H=0 
2220 0=0 
2230 X=XS 
2240 Y=YS 
2250 IFKTHEN2370 
2260 PUT8PRITE8, (XB,1?2) ,CL,8 
2270 PUTSPR ITE9 , ( XB-3, YB-3) ,CL , 9 
2280 YB =192 
2290 G0SUB3Í50 
2300 B=0 

2310 AP=AP+i000Ü 
2320 IFAP > AHTHENAH=AP 
2330 L0CATE22 r 0 
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2340 PRINTUSINB"#**l*#tM*r'*AP 
2350 G0SUB3260 
2360 RETIJRN 

2370 PUTSPRI TE7 r ( 255, ió ) r CL , 7 

2380 FMJT8PR ITE9, ( XI , YI-4 ) , CL, 9 

2390 G0SUB3Í5Ü 

2400 AP=AP+1000 

2410 IFAP>AHTHENAH*»AP 

2420 G0SUB3260 

2430 RETURN960 

2440 r 

2450 ” 

2460 r 
2470 BEEP 
2480 F0RI“QT0í 0 
2490 OOP < 7 ) “15 
2500 FOR J«OTOiOO 
2510 NEXTJ 
2520 OOP (7) -4 
2530 FORJ=OTOÍOO 
2540 NEXTJ ,1 
2550 GOTO 190 
2560 * 
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2570 

r 

2580 

r 

2590 

RESTORE 

2600 

FOR 1=01031 

2610 

READJ 

2620 

VPOK Ei 792+1 ,J 

2630 

NEXTI 

2640 

VP0KES22Q, i77 

2650 

* 

2660 

9 

2670 

r 

2680 

FOR 1=0 TO 1 1 1 

2690 

READJ 

2700 

VPOKE 1856+1 , J 

2710 

NEXTI 

2720 

0P0KE822 1,240 

2730 

0P0KE8222 , 240 

2740 

t 

2750 

9 

2760 

V 

2770 

FOR J. = 0T07 

2780 

FOR J=0T 027 

2790 

READK 
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2800 R =RND ( -TIME > *4 
2810 K“320R224+R AND-K 
2820 SC < I ) =SC ( I ) +CHR t ( K ) 

2830 NEXTJ , I 
2840 G0T02940 
2850 r 
2860 ' 

2870 ' 

2880 SP»"" 

2890 FOR J*0T031 
2900 READS 

2910 SP “SP+CHRS < OAL < "&H"+S ) ) 

2920 NEXTJ 

2930 RETURN 

2940 F OR I »0T 02 

2950 60SUB 2880 

2960 SPRITEK I )=SP 

2970 NEXTI 

2980 G0SUB2880 

2990 Si»SP 

3000 G0SUB2880 

3010 S2“SP 

3020 F0RI=6T09 
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3030 IFI=7THEN3060 
3040 G0SUB2880 
3050 SPRITEf <I)=SP 
3060 NEXTI 
3070 FOR I=0T08 
3080 G0SUB2880 
3090 ST < I > =SP 
3Í00 NEXTI 
3110 G0T03260 
3120 ' ‘ 

3130 ' 

3140 f 

3150 SOUNDO r 0 

3160 S0UND3 , 0 

3170 S0UND7 r &B 101 10000 

3180 80UND12 r 50 

3190 S0UND13 , 3 

3200 F0RI=0T0500 

3210 NEXTI 

3220 PUTSPRITE9, <255 r 208 ) ,1,9 
3230 T 
3240 ' 

3250 ' 
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3260 S0UND0 , 0 

3270 SOUNDI , 0 

3280 S0UND2 , 0 

3290 S0UND3 , í 

3300 S0UND4 , 0 

3310 S0UND5 , 0 

3320 S0UND6 r 255 

3330 S0UND7 r ÃB 101 í 1000 

3340 S0LIND8 r í 6 

3350 S0UND9 r 1 6 

3360 S0UND10 , 0 

3370 SOUNDi 1,0 

3380 SOUND 12,8 

3390 S0IJND13, 14 

3400 RETURN 

3410 ' 

3420 ' 

3430 ' 

3440 DATAO, 96,96,0,0,0,0,0 
3450 DATAO, 6 ,6, 0,0, 0,0,0 
3460 DATAO, 0,0, 0,0, 96, 96,0 
3470 DATAO, 0,0, 0,0, 6, 6,0 
3480 DATAO, 0,0, 0,0, 0,3, 15 
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3490 DA7A0,Q,0,3, 15, 15,247,251 
3500 DATA 0,0,62,255,255,255,255 
3510 DATA255, 15, 255, 127, 191,223 
3520 DATA223, 223, 188,224,254 
3530 DATA255 , 255 , 255 , 255 , 255 , 15 
3540 DATAO, 0,0, 128,240,63,255 
3550 DAT A255 ,0,0, 0,0, 0,0, 192 
3560 DAT A224 ,31 ,63,63,63,31 , 15 
3570 DATA3, 0,255, 254, 254, 253 
3580 DATA251, 247, 129, 0,255,255 
3590 DATA255 , 255 , 255 , 254 , 240 , 0 
3600 DATA251, 247, 215, 185,127 
3610 DAT A255 ,31,3,247,241,237 
3620 DATA251 ,255,255,255,248 
3630 DAT A223, 175,247,247,247 
3640 DATA227, 128,0,240,248 
3650 DATA248 , 248 , 224 ,128,0,0 
3660 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 
3670 DATA 0 , 0 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 
3680 DA í A 0,0, 0,0, 0,0, 0,0, 0,0,0 
3690 DATA 0,0, .1,0, 0,1, 0,1, 1,0,1 
3700 DATA 0 , 0 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 
3710 DATA 0,0, 0,0, 0,0, 0,0, 1,1,0 
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3720 

DATA 

i,0,i,i,i,i ,0,0,i,0,i 


3730 

DATA 

0 7 0 7 0 7 0 7 0 7 0 7 0 7 0 7 0 7 0 7 0 


3740 

DATA 

0 7 i r 0 T Í 7 i 7 i 7 í 7 0 7 i,i 7 i 


3750 

DATA 

l 7 l 7 0 r l 7 i,i 7 0 7 i 7 0 r ü 7 0 


3760 

DATA 

0 7 0 7 0 7 0 7 0 r í 7 0 7 i,l 7 i F l 


3770 

DATA 

i 7 í r i 7 l r i 7 i 7 l 7 i 7 i 7 i 7 í 


3780 

DATA 

i 7 l 7 i 7 0,i 7 0 7 0 r 0 r 0 7 0 7 0 


3790 

DATA 

i 7 i 7 i r i r i 7 i 7 í r i 7 i r i 7 l 


3800 

DATA 

i,i 7 i 7 i,i 7 i 7 i 7 i,i 7 i 7 i 


3810 

DATA 

l 7 0„0 7 0 7 i 7 0 7 í 7 l 7 í 7 í 7 i 


3820 

DATA 

i,l 7 i F l r l,í 7 i r í,i,i 7 l 


3830 

DATA 

í,i,i,i,i,i,i,0,i,i,i 


3840 

DATA 

i,i,i,i,i,i,i,i,i,i,i 


3850 

DATA 

i 7 i r l 7 l r l 7 i 7 l 7 l 7 í 7 i 7 l 


3860 

DATA 



3870 

DATA 

0 , 0 , 0 7 0 7 30 7 30 , 30 , 30 


3880 

DATA 

30,30,32, 7f ,73,73,73, 

73 

3890 

DATA 

0,0,0, 0,0,0, 0,0 


3900 

DATA 

0 , 80 , a0, f 8 , e0 , eü , e0, c.0 

3910 

DATA 

7f ,3f ,if ,3f ,3f ,3f ,íf , 

if 

3920 

DATA 

if ,3f ,3f ,3f ,if ,if ,if , 

if 

3930 

DATA 

eO,eQ,fO,fc,fe,fe,fc, 

f 8 

3940 

DATA 

fO,fO,fO,fO,fO,fO,fO, 

fO 
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3950 

DATA 

lf ,lf ,if r 3f r 3f r 3f ,3f r 3f 

3960 

DATA 

3f,3f,3f,7f,7f,7f,3f,3f 

3970 

DATA 

f0,f0,f0,80,80,80,0,0 

3980 

DATA 

0 , 80 , 80 , f c , f e , f f , f f , f e 

3990 

DATA 

3 r 7,if,7f,b6,7f,if,7 

4000 

DATA 

3, 0,0, 0,0, 0,0,0 

4010 

DATA 

80 , c0 , f 0 , f c: , da , f c , f 0 , c0 

4020 

DATA 

80,0,0,0,0,0,0,0 

4030 

DATA 

7,7,f,if,35,7f,ff,f 

4040 

DATA 

f, 0,0, 0,0, 0,0,0 

4050 

DATA 

cO , cO, eO , f 0 , 58 , f c , f e , eü 

4060 

DATA 

60,0,0,0,0,0,0,0 

4070 

DATA 

0,0, 0,0, 0,0, 0,1 

4080 

DATA 

1,0, 0,0, 0,0, 0,0 

4090 

DATA 

0,0,0,0,0,0,0,80 

O 

o 

DATA 

80,0,0,0,0,0,0,0 

4110 

DATA 

80,40,2i,le r ie,ie,ie,21 

4120 

DATA 

40,80,0,0,0,0,0,0 

4130 

DATA 

40,80,0,0,0,0,0,0 

4140 

DATA 

80,40,0,0,0,0,0,0 

4150 

DATA 

0,b,14,id,2a,35,52,35 

4160 

DATA 

34, 4a, 55, 38, 17, 9, 6,0 

4170 

DATA 

80,e8,14,d2,2f ,33,ed,a5 
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4180 

DATA 

f 7 , 47 , 8b , f 3 , 95 , 2e , f 0 , 0 

4190 

DATA 

0,Q,0,0,10,78,7f,7f 

4200 

DATA 

78,10,0,0,0,0,0,0 

4210 

DATA 

0,0,0,0,0,0,e0,e0 

4220 

DATA 

0,0, 0,0, 0,0, 0,0 

4230 

DATA 

0,0,0,0,B,lc,3e,7f 

4240 

DATA 

73,0,0,0,0,0,0,0 

4250 

DATA 

0,0, 0,0, 0,0, 0,0 

4260 

DATA 

c0,c0,0,0,0,0,0,0 

4270 

DATA 

0,0,0,6,e,ie,lf ,3 

4280 

DATA 

1,0, 0,0, 0,0, 0,0 

4290 

DATA 

0,0,0,0,0,0,0,80 

4300 

DATA 

c0,c0,0,0,0,0,0,0 

4310 

DATA 

0,0, f ,7, f, 3, 3,1 

4320 

DATA 

1,0, 0,0, 0,0, 0,0 

4330 

DATA 

0,0,0, 80 , c0 , 0 , 0 , 80 

4340 

DATA 

80, cO, 0,0, 0,0, 0,0 

4350 

DATA 

3, 3, 7, 1,1, 1,1,1 

4360 

DATA 

1,1, 0,0, 0,0, 0,0 

4370 

DATA 

cO , cO , eO , 80 , 80 , 80 , 80 , 80 

4380 

DATA 

80,80,0,0,0,0,0,0 

4390 

DATA 

0,0,0, 1,3, 0,0,1 

4400 

DATA 

1,3, 0,0, 0,0, 0,0 
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4410 

DATA 

0,0,f0,e0,f0,c0,c0,80 

4420 

DATA 

80,0,0,0,0,0,0,0 

4430 

DATA 

0,0, 0,0, 0,0, 0,1 

4440 

DATA 

3, 3, 0,0, 0,0, 0,0 

4450 

DATA 

0, 0,0, 60, 70, 78, 78, c0 

4460 

DATA 

80,0,0,0,0,0,0,0 

4470 

DATA 

0,0, 0,0, 0,0, 0,0 

4480 

DATA 

3, 3, 0,0, 0,0, 0,0 

4490 

DATA 

0, 0,0, 0,10, 38, 7c, fc 

4500 

DATA 

ce, 0,0, 0,0, 0,0,0 

4510 

DATA 

0,0, 0,0, 0,0, 7, 7 

4520 

DATA 

0,0, 0,0, 0,0, 0,0 

4530 

DATA 

0,0,0,0,8,ie,fe,fe 

4540 

DATA 

i G , 8, 0,0, 0,0, 0,0 




CAPITULO 

IS 


DECIDA-SE! 


Referências 

Nível de compreensão pelo usuário: MEDIANA. 
Tipo de jogo: INTELIGÊNCIA. 

Dificuldade do jogo : MEDIANA. 


O jogo 

“Decida-se!” não é apenas um jogo pois é um programa que pode ajudar-nos a tomar nossas 
decisões neste grande jogo chamado Vida. 

Com o seu uso vocé poderá chegar a conclusões claras e objetivas mesmo em situações 
altamente complexas que podem ocorrer no seu dia-a-dia. 

Um exemplo simples é o caso de uma pessoa que vai viajar em férias e possui várias opções 
de roteiros e estadias, cada qual com suas vantagens e desvantagens. Com o auxilio do “Decida-se” 
esta pessoa pode decidir-se pela melhor opção. 


Fita K-7 

Para armazenar-, depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE-decid "-*- 1 
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Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"decid" -*- 1 

Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"decid" 

Para recuperar : para recuperar o programa do disquete, digite: 

LOAD"decld” «-> 


Para jogar 

Basta responder ás perguntas que o micro fizer. 

Inicialmente você deve informar ao micro que tipo de decisão tem de ser tomada, sendo que 
exitem três opções: - escolher uma entre várias alternativas; - escolher um curso de ação ou 
- escolher entre várias alternativas com SIM ou NÃO. 

Pressione o número correspondente ao tipo de decisão a ser' tomada. A seguir, vocé deve 
responder às perguntas que serão formuladas pelo micro, as quais variam conforme o tipo de 
decisão a ser tomada. 

O ideal é que vocé simule várias situações hipotéticas com este programa, pois somente 
assim aprenderá a dominá-lo perfeitamente. 

É sempre bom lembrar que o "Decida-se” aponta a melhor decisão com base nas respostas 
que você dá ao micro, fato este que indica a importância de suas respostas no contexto global. Res- 
postas impensadas levarão a decisões erradas ... 

Para interromper o programa a qualquer instante, pressione CTRL + STOP. 

10 REh — Decida-se! 

20 REH 

30 CLEAR 1024 : P0KE64ó83 * . i 
40 KK=30 s K 1=60 

50 COLOR i5 , 4 r 3 sSCREENO s KEYOFF 5 LOCATEO ,0 r 0:UIDTH40 


60 MD=2Q 
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70 DIML.S < MD ) , F% < MD ) , V < MD ) , C < MD , MD ) , D<MD > , Z < MD ) 

80 ES="FIM" 

90 GOSUB 1670 

100 F$“"Eu posso ajudar vocc a tomar urna' * X=3 : Y*»6 : GOSÜ 
B1710sF4="dec i sao.":X=í5iY»7íG0SUBi7i0sF4= / Para isto f 
arei algumas perguntas e analisarei suas resp 

ost as.": X-3 : Y=9 s GOSUB 1710 
110 GOSUB 1780 s GOSUB í 670 

120 F%»"Com qual dos itens abaixo sua decisão 
se ident i f I ca?' / *X«3s Y«3«G0SUB 1710 
130 F%«" 1) Escolher um item em varias alter- na 

t ivas;":X=i«Y=8sG0SUBl7i0 

140 F4=" 2) Escolher um curso de acao f" * X«i s Y=10 :G0SUB 
1710 

150 Fl^" 3) Escolher entre varias alternati- va 

s com SIM ou NA0."*X=i*Y=i2: GOSUB 1710 
160 F$="Escolha <1,2 ou 3 > " s X=8: Y=i8s GOSUB 1 710 
170 A%»INKEY < ÍBIFAS< // 1"0RA4>"3 ,/ THENÍ70ELSET»VAL(A4) 

180 ONT G0T0190,2i0 r 230 

190 G0SUB167Q *Fi“"0ue tipo de item e 'es t e?" : X=3 s Y=5 s G0 
SUB 1710 

200 X“3 : Y= 6 1 GOSUB 1730 : T4=B$ s GO T 0270 
210 T4*"curso de acao." 
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220 G0T0270 

230 Ti*" 'sim’ ou ’nao r ":NI«=2 
240 L4< 1 > ="dec i d i ndo sim" 

250 Li(2)*"dec id indo nao" 

2ó0 G0T0560 

270 GOSUB i670íNI*=0 

280 F%="Eu preciso ter uma lista de todas /, «X=3s Y*3*G0S 
UB 1710 

290 F4*"as opcoes X=3 i Y=4 : GOSUB 1710 

300 F$*"D i g i te-as uma de cada vez" sX«3sY*3#00SUB 1710 

310 Fi*"na linha aba I xo«"«X*3: Y»6sG0SUBí7i0 

320 'PRINT 

330 F4*"D i g i t e a palavra 'FIM' para" «X-38Y-1 i «GOSUB 171 
0 

340 F4*" terminar a 1 i st a . " : X=3: Y=12« GOSUB 1 710 

350 IFNKMD THEN 370 

360 F4*"L i st a che i a ! M "»X=8: Y = i5iGOSUBi710*GOT0400 

370 NI=NI + 1 s X=3 ' Y =8 s GOSUB 1 730 : LOCA rED r 8!PRINTSTRING4(3 

9," ") ; :L4<NI)=B4 

380 XFLft<NIH>ESTHEN350 

390 NI=NI-i 

400 ÍFNI >2THEN44Ü 

410 ' 
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420 F4»"Voce precisa de, pelo menos, tres op- coes. 
Tente novament e . " s X=3 s Y = 15 s GOSUB í 710 
430 GOSUB 1780 3 G0T0270 
440 GOSUB í 670 

450 F4="Esta e 'a sua 1 i st a : " : X=3 s Y=3 e GOSUB 1710 
460 L=0sF0RJ=iT0NI 

470 F4=STR4 < J ) +" ) "+L4 < J > s X=*5 a Y=5+L s L-L.+ í : GOSUB í 7 10 
480 NEXT 

490 F0RJ=iT09«R4“INKEY%sNEXT 

500 F4="A lista esta correta? < S=s i */M=nao) " * X-3 : Y=Y+3 
s GOSUB 17 tO 

5Í0 RS“INKEY4 * IFR4 3//,/ THEN510 
520 IFR*“"8"THEN56Ü 
530 IF R4< > 'N" THEN500 

540 GOSUB 1670 • GOT 0270 s F4 =/, A lista precisa ser digitada 
novamente ! X*2 * Y"Y+2» GOSUB i7i0 
550 GOSUB 1700 :G0T0270 
560 GOSUB Í670SR5-ÍNKEY4 

570 F4°"Agora, pense nos fatores que sao" ! X=3 s Y = 4 s GOSU 
B í 7 1 0 

580 IFT<3THENFl="importantes para escolher o melhor"sX 
=2 • Y-5 s GOSUB 1710 

590 IFT<3THENF*=T4+"-."*X=2: Y=6sG0SUBÍ710 
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600 IFT=3THENF4='" i mpor t ant es para voce decidir "sX=2sY 
=5 : GOSUB i 710 

ÓÍO IFT=3THENFÍ="sobre "+TS+".":X=2: Y=6 : GOSUB 1710 
620 F4="Digite esses fatores, um de cada vez"iX“2*Y=8s 
GOSUBí 710 

630 F 4="na linha aba i xo X=2 s Y=9 : GOSUB 1710 
640 Fl="D i g i t e a palavra 'FIM' par a" : X-3 : Y = i3 : GOSUB 171 
0 

650 Fl«" terminar a 1 i st a . " s X=3« Y*=14 s GOSUB 1710 

660 NF=0 

670 IFNF= >MDTHENCLS s FS“"L i st a che i a ! ! ! " s X=8 : Y=18 : GOSUB 
1710 

680 IFNF >“MDTHEN72Q 

690 NF»NF+l:X=2!Y»ll : GOSUB 1 730 » LOCATEO r 11 : PR INTSTR INGS 

<33 r " ") j sFS<NF)=Bt 

700 IF F$ ( NF ) < >E1THEN670 

710 NF*NF-i 

720 IFNF< lTHENFS="Uoce precisa de ao menos tres fatore 

s!"*X»l:Y= 18: GOSUB 1710 

730 IFNF< 1 THENGOSUB 1700 : G0T0560 

740 GOSUB i 670 

750 F$="Agui esta sua lista de fatores:" íX=2: Y-2*G0SU 


B17Í0 
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760 L=0CF0R J=iTONF 

770 F4“STR4( J>+"> "+FÍ < J ) « X«=5 : 'i =4+L s GOSÜB i7í 0* L“L+i 
780 NEXT 

790 FS“"Digite o numero cor r espondent e" s X*3 : Y»Y+3:G0SU 
B17ÍÜ 

800 FS» "ao fator que voce acha que e ’o" s X»2* Y«Y+i sGOSU 
BÍ710 

810 Fí®"ma i s importante. "sX=2e*=Y+l :G0SUBi7i0 

820 F $*"0 se a lista estiver i ncor ret a s»3 : Y=Y + i : 00S 

UB í 710 

830 AS»INKEY* : IFA*«=""THEN830 
840 A=INT<VAL(AS> ) s IFA<00R A>NFTHEN830 
850 IFA=0THEN5ÓÜ 
8Ó0 Q0SUB 1670 

» 

870 IFNF = í THENÍ050 

880 F9>“"Agora vamos supor que temos uma" :X=3aY=3:G0S 
UB 1710 

890 FS="escala de importância de 0 a 10." sX=25i=4!G0 

SUB 17 10 

900 Fl="Se dessemos a "+F4<A)+" um" i X=3 : Y«ó * G0SUB 1710 
910 F$-"valor de 10, que valor de i mpor-" 8X“2s Y=7 sGOSU 
B 171 0 

920 Fí="t anc i a voce daria aos outros fa~"eX»2sY*8 sGOSU 
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940 IFJ=ATHENÍ040 

950 FÍ=F5< J) sX«3sY«i2sG0SUBi7í0 

B17íO:FS= J, tores , nesta mesma esca 1 a?" :X=2 : Y«9 : GOSUB í 71 
0 

930 F0RJ=1T0NF 

960 X=3 s Y = i 4 s GOSUB 1730 »U( J > «UAL í B4 > 

970 Fí="Esta correto? <S«s i m/N=nao ) " :X*3« Y«í 6* GOSUB í 71 
0 

980 HI=1NKE r 4 s IFH4=' , S"0Rm= ! "N"THEN?9QELSE980 

990 F0RW«i2T0í 9 s L0CATE0 , W * PR INTSTR I NG5 ( 38 r " ") sNEXTWel 

FH4="'N"THEN950ELSE100Ü 

1000 XFU < J ) “OTHENí 030 

1010 IF U( J) >10THENi030 

1020 Q0T01040 

1030 F4“"Valor i nval ido I I !"* X«5» Y«18* GOSUB 1710«G0T0950 
Í040 NEXTJ 

1050 V(A)=1Q: Q^O : FOR J=i TONF 
1060 0 =Q+V<J)sNEXTsF 0RJ“1T0NF 
1070 V< J ) =U < J)/Q ! NEXT s GOSUB 1670 

1080 IFT< >3THENF4«"Cada "+T4+" precisa ayora":X=3:Y«5: 
G0SUB1710 

1090 IFT=3THENF4="Dec i d i r 'sim' ou ’nao ' pr ec i aa -v l X^S * 


Y«5s GOSUB 17 i O 
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iiOO F9>="ser comparado com respeito a cada"»X=2a Y“6*G0 
SUB 1710 

ÍÍÍO F%="f at or de importância. Vamos cons i ~" s X=2 s Y®7 s G 
08UB1710 

1120 Fi*"d«r»r cada fator sep ar ad ament e . " s X=2 5 Y=8 : GOSU 
B 1710 

i i 30 GOBUB 1780 

j.140 GOSUB 1670» FS“" Vamos dar a "+LS<1>+" um" : X»3 » Y=5 « G 
0SUB1710 

1150 F$="valor de 10 numa escala qualquer X=2« Y«6» GO 
SUB 1710 

1160 FS»"Vamos dar a cada fator um vai or " » X®3: Y=7 : GOSU 
B 1710 

1170 F4="mais alto ou mais baixo que 10 . " s X=2» Y=8 » GOSU 
B17iüsF4“"Este valor depende de quanto voce" s X*3 » Y=9 1 G 
0SUB1710 

1180 F9>="acha que ele e 'melhor ou p i or" : X = 2: Y«=1Q t GOSUB 
1710 

1190 F*»"que "+L$ <l)+"."!X=2*Y=ils GOSUB 17 10 

1200 FOR J=*i T ONF 5 F ORB^l 4T020 • LOCATEO r B * PR INTSTR ING4 ( 38 , 

" " ) * NEXT 

1210 FÍ="Cons iderando somente "+Ff ( J ): X=2 s Y=14 : GOSUB 17 


10 
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1220 Fl="e dando 10 para "+LS< 1 >+","* *=2 s Y=i5*G0SUB 171 
0 

1230 F$="Que valor vocc daria par a : " : X=2 s Y=16 * GOSUB 171 
0 

1240 F0RK=2T0NI 

1250 Ft=LS(K) s X=»2 :Y = i 7: GOSUB 1710 sX=2s Y=18:G0SUBi730«C< 
K, J)=0AL<B4> 

1260 Fl="Est a correto? <S=s i ni/N=Nao)?":X=2* Y=i?:G0SUBl 
710 

1270 If«INKEY*í IFIt«= // S // 0RI5="N"THEN1280ELSE1270 
1200 FOR W= 1 7T021 s L0CATE0 , W SPRINT STR INGS ( 38 r " ">sNEXT:I 
FI4= a "N // THEN1250ELSEÍ290 
1290 IFC(K r J) > =0THEN1 320 

1300 Fi^Valor i nv»l i do I ! ! "« X»16 * Y-20SQ0SUB 1710 

1310 GOTO. 1250 

1320 NEXTiCd, J)-10«NEXT 

1330 FOR J“1T0NF :0=ü 

1340 F0RK-1T0NI 

1350 Q=Q+C(K r J> SNEXT 

1360 F0RK=1T0NI 

1370 C(K,J)®C<K r J>/Q SNEXT sNEXT 
1380 F0RK=1T0NI :D<K)=0 


1390 F0RJ*1T0NF 
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1400 D(K )=D(K)+C(K, J)*V( J) :NEXT 
1410 NEXT 5 MX=Q • F0RK=iT0NI 
1420 IFD<K > >MXTHENMX=D ( K ) 

1430 NEXT sF 0RK = 1T0NI 
1440 D<K)=D(K)#i00/MX:NEXT 
.1 450 F0RK= : 1 TON I * Z ( K ) ®K s NEXT 
1460 NM*NI-Í SF0RK=1T0NI 
1470 FOR J»iTONMsNl=*Z( J) 

1480 N2=Z< J + i ) 

1490 IF D(N1)>D< N2 ) T HEN1510 

1500 Z(J+i)=Ni:Z< J)=N2 

1510 NEXT:NEXT:Ji*Z(i> : J2=Z<2) 

1520 DF»D< J1 >-D( J2> :G0SUB1670 

1530 Fi«L%<Ji>+" e 'o m«lhor ! "»X=3« Y«4*G0SUBi7i0 

1540 IF DF<5THENF*»"Mae e 'muito pr "x i mo. " s X=3 : Y =5 : GOSÜ 

B 1710 

1550 IF DF< 5THEN1610 

1560 IF DF< 10THENFi="Mas e 'pr "x i mo . " : X=3 : V=5 e GOSIJB 1710 
1570 IF DF < 10THEN1610 

1580 IFDF< 20THENF5="E esta bem a f r ent e . " « X=3: Y=5 s GOSU 
B 1 7 1 0 

1590 IF DF< 20THEN1610 

1600 Fí='''i'iase dec i s i vament e - " s X=3 : T=7 s GOSUB i710 
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1610 F4«"Aqui esta a lista f i nal : " : X=3: Y=9 : GOSUB í 7i 0 
1620 L0CATE5 ,11 s FOR J=1 TONI l G=Z ( J ) 

1630 PRINTTAB<5) ;Lf (Q) p TAB < 15) p INT (D < 0 ) ) 3 NEXT 

1640 Fl="Deseja continuar <S*»s i m/N=nao ) " s X=5 s Y=21 : GOSU 

81710 

1650 BÍ»INKEYl:IFB$=""THENi650 
1660 IF B4«"S"THENRUNELSEEND 
1670 REM 

1680 CLS s F$="M8X-DEC I DA-SE' « X = 13 s Y=i s GOSUB 1710 
1690 RETURN 

1700 FOR J=í T01500 s NEXT sRETURN 

1710 S0IJND8 r 5 5 S0UND1 r 2 s FOR I“1T0LEN < F4 ) s AS-MID4 < F‘J> r I r 1 ) 

5 LOCATEX , Y , 0 s SOUNDO , KK ! PRINTAt p : X=X + 1 1 SWAPKK , K 1 s IFX>39 

THENY=Y+ 1 í X=0 

1720 NEXT 5 S0UND8 f 0« RETURN 

1730 Bi»"" s LOCATEX-i r Y r 1 : PR INT" >" p 

1740 AS*=INKEYSi IFA9> =,/ "THEN1740 

1750 AA=ASC<A%) :1FA%=CHRS< 13)ANDB!b< > y,/ 'THENLOCATE , „0:RE 
TURN 

1760 IFA4=CHR4(8) ANDLEN (BI ) >OTHENB t=LEFT4 ( Bí r LEN( BS > -1 

) :X=X-1 :LOCATEX r Y:PRINT" " p : LOCATEX „ Y s 80T01740 

1770 IFAA>47THENL0CATEX r YsPRINTAl; : B4=B4+A4 : X=X+ i s GOTO 


1740ELSEÍ 740 
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í 780 
ssegu 


LOCATEQ , 22 , 0 s PR 1NT" Pressione uma tecla para pro 
i r !" : AS*INKEYSs IF A*«""THENi780ELSERETURN 
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O Montador não é um jogo, mas sim um programa que tem por objetivo auxiliá-lo na 
digitaçáo de dois jogos em linguagem de máquina: PACKMAN SINISTRO e CAPTURE OS 
MONGAS. 

Como utilizar 

Após digitar o programa digite RUN e «-* ou pressione F5. 

Na tela inicial surgem as seguintes mensagens: 

"(C)olocar dado» na memória" 

"(Uistar dados da memória" 

"(G)uardar dados em fita cassete" 

«#•#» 

0 sinal indica que o “Montador” está esperando instruções do tipo “C”, “L”, “G” ou 

“D”. 

Quando você quiser colocar dados na memória do micro (por exemplo digitar o jogo 
Packman Sinistro) basta digitar a letra “C” e o endereço (em hexadecimal) da memória inicial 
a partir da qual serão colocados os dados. No caso de você estar continuando a digitação de um jo- 
go, basta teclar a letra “C” seguida do endereço (hexadecimal) do ponto onde havia terminado a 
digitação. Por exemplo, se você fosse iniciar a digitação de Packman Sinistro, deveria digitar: 

"CD807" 

pois o jogo em questáo começa no endereço D807. Após esse comando surgiria na tela a 
mensagem: 

"CD807 00 - " 
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Neste instante você deveria consultar a listagem do jogo e digitar, um a um. os códigos dos 
comandos. Abaixo segue uma visáo parcial do que você deveria digitar: 

0807 OO-FD 

0808 FF— 21 

0800 00-00 

OBOA FF- 00 

080 B OO-FD 

Quando desejar interromper a digitação de dados pressione e o programa voltará para 
a tela inicial. 

Para visualizar os dados na memória do seu MSX basta pressionar “L" e o' endereço (em 
hexadecimal) a partir do qual deseja ver os dados. Por exemplo, ao digitar 


••LOBO»" * J 


a listagem começará a partir do endereço D808 da memória. 

Para prosseguir com a listagem pressione a barra de espaço; para interrompe -la pressione 
«- 1 co programa voltará para a tela inicial. 

Quando, por fim. você desejar armazenar os dados digitados em fita cassete pressione "G". 
Na tela aparecerá o seguinte: 

"Qual programo vocé oOí digitando?" 

”1 — Captura o« Mongai" 

"2 - Packman Sinistro" 

"Seloclorw o nümoro correspondente" 

Basta vocc pressionar “1” ou “2” conforme o programa que está sendo digitado (lembre-se 
de posicionar a fita K7 e pressionar as teclas adequadas de seu gravador). 

Para recuperar o programa da fita K7 para a memória de seu MSX basta posicionar a fita, 
pressionar a tecla PLAY do gravador e digitar: 

8 LOA D "CAS: " «J 

Digite “D” para armazenar os dados em disquete. 

Para recuperar os dados do disquete para a mcinóiia do seu MSX digite: 

bload "capmon" «-J para Capture os Mongas ou 

BLOAD “paesi” ^ para Packman Sinistro. 

Seu programa retomará para a memória do micro e você poderá prosseguir com a 
digitação. 
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90 REM — MONTADOR — 

Í00 SCREET.NO : CLEAR200 , &H87FF • Z4 =/ ' 00Q0'' 
liO '0NERR0RG0T0300 

í 20 CLS:PRINT v <C)olocar dados na mentor I a" : PR INT" < L ) i st 
ar dados da mentor i a"spRINT"(G>uardar dados em fita cas 
set e" SPRINT"*" p : G0SUB260: PR INTAÍ ; 
í 25 IFAS=»"G"THEN310 ELSE IF A$ = "D" THEN 410 
130 IFA4="C"THEN150 

140 IF Al="L // THEN210ELSEPR INT • GOTO 1230 
150 LINEINPUTAl: A=VAL ( "&H"+A% ) 

160 PR INT 5 G0SUB280 s V=PEEK < A ) : G0SUB290 SPRINT"-"* 

170 G0SUB240:L=«V*i6: IFE = iTHEN190ELSEGOSUB240:L=L+^:lFE 

=iTHEN190ELSEP0KEA,LSA-A+i 

180 G0T0160 

190 IFA4=CHR% ( 8 ) THENA“A- iELSEIFAt»CHRt < 32 ) THENA=A+ 1EL.S 

EIFAÍ=CHR4(13)THEN120 

200 G0T0160 

210 L INE' I NPUTA4 : A=VAL ( "&H"+A% ) 

220 F0RL*0T015sG0SUB280«F0RM=0T07sV=PEEK(A) :S“S+VaQ0SU 
B290íA=A+i :NEXT SPRINT" : V=S : G0SUB290 : PR INT : NEXT 
230 PR INT s G0SUB260 s IF A%< >" "THEN12ÜELSE220 
240 E=0 í G0SUB260 : IFA4< CHR1 < 48 ) THENE= 1 : RE ÍURNELSEIFA4 >C 


HRS ( 70 ) THEN240 
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250 U=OAL<"&H"+A4> :PRINÍA4 • sRETURN 

260 A4~ : iNKEY4* IFA4-""THEN260ELSEIF A4>CHR4< 96 > ANDAI < CHR 
4(123) THENA4 =>CHR4 < ASC ( A4 ) -32 > 

270 RETURN 

280 A4=HEX4(A) s PR INTLEFT 4 < Z4 7 4-LEN ( Al ) > + A4 + "' ",*S*INT< 
A/25ó>+( AAND255) sRETURN 

290 A4=R IGHT4 ( HEX4'. 9 > r 2 ) * PRINTLEFT4 ( Zí , 2-LEN < A4 ) )+A4 + 

" , sRETURN 
300 RESUME NEX F 

310 CLS*PRINT"<àual programa voce esta d i g i t ando?" : PR IN 

T*PRINT"Í- CAPTURE OS MONGAB" SPRINT "2-- PACKMAN SINISTRO" 
320 L0CATEi r 6*PRINT"Selec ione o numero correspondente* 

", bA4=INPUT4<1) 

330 IFA4-" 1" THENBSAUE"cas * c apmon " , &HC800 r &HDAE8 * GO 10 l2Ü 
340 IF A4="2"THENBSAUE"c as * p ac s i " , &HD800 , &HDED7 : GOT 0 1 20 
350 GOT 0320 

410 CLSaPRINT Oual programa voce esta d i g i t ando?" s PR IN 

I : PR 1NT" í- CAPTURE OS MONGAS" sPRINf "2- PAG*. MAN SINISTRO" 
420 LOC A TE 1 T ó * PR INT" Se 1 ec ione o numero correspondente* 

", *A4“1NPUT4(1) 

430 IF A$ = "1” THEN BSAVE "capmon". & HC800.&HDAE8:GOTC.' 120 
440 IF A$ - "2" THEN BSAVE "pacsi”. & HD800.&HDED7: ‘GOTO 120 


450 GOTO 420 
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Referências 

Nível de compreensão pelo usuário: DIFÍCIL. 

Tipo de jogo: AGILIDADE. 

Dificuldade do jogo: DIFÍCIL. 

O jogo 

Este é um legítimo Packman, contudo... caveiras, com suas mandíbulas abertas em um 
sorriso sinistro, correm loucamente através do labirinto tentando devorá-lo. 


Fita K-7 

Para armazenar: depois de digitar o programa em BASIC (linhas 10 a 100), salve-o em fita cassete, 
com o comando: 


CSAVE"pacsi" «- 1 . Utilize o programa Montador (capítulo 14) para digitar o resto do jogo. É 
importante que você grave o programa 120 em linguagem de máquina (comando “G”do Montador) 
logo após o programa em BASIC na fita K-7. 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"pacsi"'«-* 
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Disquete 

Observação: A linha 70 passa a ser: 70 BLOAD “pacsi" 

Para armazenar: depois de digitar o programa em Basic (linhas 10a 100), salve-o em disquete com 
o comando: 

SA VE "pacsi" ^ 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAD"pacsi" "- 1 

Para jogar 

Digite RUN e^ ou pressione F5. 

Seu objetivo é “comer” todos os pontinhos do labirinto, porém evitando colidir com as 
caveiras vermelhas. 

Para movimentar o “come-come", utilize as teclas de movimentação de cursor («-, t, i). 
Na tela de jogo existem as seguintes informações: 

SCORE: indica sua pontuação no jogo atual 
LEFT: indica o número de vidas que restam 
HISCORE: indica a pontuação da melhor partida 

No centro do labirinto existe uma fruta que, ao ser comida, permite-lhe enfrentar as caveiras 
sem medo. Quando voce' come esta fruta, as caveiras ficam azuis. Se vocé comer uma caveira azul, 
ganhará pontos. Imediatamente após isto. esta caveira voltará a ficar vermelha, indicando que vocé 
não poderá colidir com ela. 

Decorrido um certo tempo após vocé ter comido a fruta, todas as caveiras voltam a ficar 
vermelhas, por isso, quanto mais rapidez vocé empregar para "comé-las ’, mais pontos ganhará. 

O jogo terminará quando vocé comer todos os pontinhos do labirinto ou perder todas as vidas. 
Para interromper a partida a qualquer momento desligue o seu MSX. Para continuar a 
partida após a mensagem “GAME OVER” pressione qualquer tecla. 

10 REM — Packman Sinistro 

20 REM 

30 CLEAR í 024 r &HD800 
40 0NST0PG0SUB50 : ST0P0N : GOTOóO 


50 RETURN 
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60 DEFUSR -&HD807 
70 BL0AD"cas tpacs I " 

80 A=USR<0> sPLAY"vi5164cdefgab" 
90 F0RI=0T050:Af«INKEY4*NEXT 
100 IFINKEY4-=‘""THEN100ELSE80 


D807 

FD 

21 

00 

00 

FD 

39 

CD 

72 

:72 

D80F 

00 

01 

Oi 

E2 

CD 

47 

00 

CD 

s AC 

D8Í 7 

90 

00 

3E 

41 

21 

00 

20 

01 

:40 

D81F 

00 

18 

CD 

56 

00 

01 

07 

11 

’ 4B 

D827 

CO 

47 

00 

3E 

06 

32 

34 

EO 

• 9D 

D82F 

AF 

6F 

67 

22 

21 

EO 

32 

38 

í 19 

D837 

EO 

FD 

F9 

21 

34 

EO 

35 

20 

5 òF 

D83F 

57 

2i 

A5 

DE 

11 

OC 

02 

CD 

= FE 

0847 

3E 

DD 

3E 

19 

21 

60 

22 

01 

: 35 

D84F 

40 

00 

CD 

56 

00 

2A 

96 

DE 

! 28 

D857 

ED 

5B 

21 

EO 

E7 

DO 

ED 

53 

5 6F 

D85F 

96 

DE 

C9 

21 

00 

15 

3E 

OB 

:F3 

D867 

ÍE 

00 

CD 

93 

00 

3C 

ÍE 

01 

as 

CD 

D86F 

CD 

93 

00 

3C 

1E 

OE 

CD 

93 

:6F 

0877 

00 

2B 

7C 

B5 

CA 

90 

00 

5D 

: 62 

D87F 

AF 

CD 

93 

00 

3C 

5C 

CD 

93 

:5E 

D887 

00 

3E 

07 

1E 

3E 

CD 

93 

00 

:60 

D88F 

3C 

1E 

OF 

CD 

93 

00 

18 

CE 

: 16 
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D897 

3A 

38 

EO 

OF 

E6 

07 

6F 

26 

:52 

D89F 

00 

29 

29 

11 

AE 

DE 

19 

7E 

:FD 

D8A7 

32 

30 

EO 

23 

7E 

32 

31 

EO 

: A5 

D8AF 

23 

7E 

32 

2F 

EO 

23 

7E 

32 

:3C 

D8B7 

32 

EO 

3E 

01 

32 

2E 

EO 

32 

: 52 

D8BF 

33 

EO 

11 

08 

00 

06 

18 

C5 

s A6 

D8C7 

3E 

1E 

01 

08 

00 

F5 

D5 

21 

«EF 

D8CF 

60 

DE 

CD 

5C 

00 

El 

Fi 

01 

«Ei 

D8D7 

08 

00 

09 

EB 

30 

20 

EE 

21 

«17 

D8DF 

10 

00 

19 

EB 

Cl 

10 

EO 

21 

« 9D 

D8E7 

18 

04 

06 

12 

C5 

E5 

AF 

01 

: 4D 

D8EF 

00 

00 

CD 

56 

00 

El 

11 

00 

«AC 

D8F7 

01 

19 

Cl 

10 

EF 

26 

04 

06 

« D9 

D8FF 

09 

2E 

03 

C5 

06 

00 

C5 

ES 

«93 

0907 

CD 

5A 

OC 

El 

2C 

2C 

Cl 

10 

«ED 

D90F 

F5 

24 

24 

Cl 

10 

EB 

li 

OF 

«01 

0917 

OC 

21 

68 

DE 

CD 

4E 

DC 

11 

« 6B 

09 ÍF 

OF 

OD 

21 

70 

DE 

CD 

4E 

DC 

« 7A 

0927 

11 

10 

OC 

21 

78 

DE 

CD 

4E 

: BF 

D92F 

OC 

11 

10 

ÜD 

21 

80 

DE 

CD 

« 5E 

0937 

4E 

DC 

11 

05 

06 

06 

04 

C5 

«25 

D93F 

06 

02 

C5 

D5 

06 

06 

C5 

21 

«AC 

0947 

60 

DE 

E5 

D5 

CD 

4E 

DC 

Dl 

«EO 
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D94F 

1C 

Ei 

D5 

CD 

4E 

DC 

Dl 

IC 

:DE 

D957 

iC 

iC 

Cl 

10 

E9 

Dl 

14 

Cl 

:CB 

D95F 

ÍO 

EO 

i 4 

14 

Ci 

10 

D 8 

21 
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CAPÍTULO 




CAPTURE OS MONGAS 


Referências 

Nível de compreensão pelo usuário: DIFÍCIL. 
Tipo de jogo: AGILIDADE. 

Dificuldade do jogo: MEDIANA. 


O jogo 

Os Mongas sáo monstrinhos curiosos. Onde encontram uma porta aberta eles entram e 
esperam um pouquinho... mas se vocé demorar para fechar a porta, cuidado! 


Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita cassete com o comando: 
CSAVE"capmon" . Lembre-se de usar o programa Montador para auxiliá-lo. 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"capmon" 
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Disquete 

Para armazauir: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"copmon" 

Para recuperar: paia recuperar o programa do disquete, digite: 

LOAD"capmon" 


Como jogar 

A primeira pergunta que o programa faz é: 

-JOYSTICK OU TECLADO?" 

"(TECLE J OU Ti" 

Se você pressionar a tecla “J”, o jogo será controlado pelo joystick, caso contrário, pres- 
sionando “T”, serflo utilizadas as teclas de movimentação («-, 1. 1 ). 

A tela seguinte mostrará: 

"CAPTURE OS MONGAS" 

“MEB" 


-VOCÉ DE VE POR OS" 

"MONGAS DENTRO DAS CASAS" 


"USE" 


"MO VER. ..SET AS" 
"ABRIR FECHAR CASA" 
..ESPAÇO" 

"TECLE P" 


Nesta tela temos uma descrição breve de como devemos jogar. Nosso objetivo é fechar os 
Mongas dentro das casas, quando então ganha-se pontos. 

Para fechar um monga dentro de uma casa, primeiro devemos abrir esta casa. Para isto. 
quando passamos com o boneco orelhudo pelo lado esquerdo de uma casa, devemos pressionar 
a barra de espaço. Se a manobra foi realizada corretamente, a porta da casa se abrirá, e assim 
permanecerá atê que a fechemos pelo mesmo processo. 

Para mover o boneco orelhudo, utilize as teclas de movimentaçáo (•-, t, 4), 
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Iniciando o jogo, temos na tela as seguintes instruções: 

TIME: tempo que resta para você fechar todos os Mongas dentro das casas. Se o tempo chegar a zero, 
você perderá o |ogo. 

SCENE: o nível de dificuldade em que você está 
SCORE: sua pontuaçSo dentro do ]ogo 
HIGH SCORE: a pontuação do melhor jogador 

Como última regra do jogo, você deve evitar que qualquer Monga o apanhe, caso em que 
você perde uma das três vidas que possui. 

Ao término de suas três vidas ou do seu tempo total, surge a seguinte tela: 

"GAME OVER" 

••NOVAMENTE?" 

‘•(TECLE SOU N)" 

Se você quiser jogar outra partida, pressione “S” (de sim), e o jogo reiniciará. No caso de 
pressionar “N” (de não), o jogo será encerrado, e o seu MSX voltará ao Basic. 
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